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i, ABSTRACT 



THE POP-15 ASR33/35 TELETYPE TESTS PART 2 JS THE SECOND 
PART or A TWO-PART PARAGE USED TO TEST THE AS*33i OR 
A3R35 TELETYPE WHEN aTTACMEO TO A P0P»13 SYSTEM , 

PART 2 CONTAINS SEVEN SELECTABLE PROGRAMS ;USED? TO TEST THE 
TELEPRINTER! PUNCH* KEYBOARD, ANO THE PrCWTeW' PUNCH AND 
HEADER IN COMBINATION, THE PROGRAMS A*E SELECTED ANO CON- 
TROLLED BY MEANS Of THE ACCUMULATOR SWITCHES (ACS), 

THE PROGRAMS AVAJLA8LE AREl 

PRG0 PRtxtE* TEST 

PRC1 PUNCH TEST 

PR62 KEYBOARD TEST 

PRG3 COMBINED REAOER, PRINTER, PuNCH TEST, 

PRC4 PRINTER EXERCISER, PRINTS LINES OF CHARACTERS STORED 
IN LOC 00821 ANO 00022, W 

PROS PUNCH EXERCISER, PUNCHERS AND READ CHECKS DATA BLOCKS 

or data stored in loc w*n and 02022, 

PRS6 PUNCH EXERCISER, PUNCHES AND REaO CftttKS SLOCKS OP 
BINARY COUNT PATTERN, 1 



2. REQUIREMENTS 
2,1 EQUIPMENT 



A, STANDARD POP-IS ANQ 

B, ASR33 OR ASR35 TELETYPE, 
2,2 STORAGE 



LOCATIONS 00000 THROUGH 04406 ARE USED, 
2,3 PRELIMINARY PROGRAMS 



POP-15 ASR33/35 TELETYPE TESTS PART 1 PROGRAMS PRG0, PRG1, AND 
PRG2 MUST HAVE BEEN RUN SUCCESSFULLY, 



"ASE 2 
3, 10*01*5 PROCEDURE 



TO LOAD THE PROGRAM PROCEED AS FOLLOWS* 

A, LOAD OtjECT TAPE IN TELETYPE REAOER, 0« IN HIGH SPEED 
READER IF THE SYSTEM HAS SAID HEADER, 

B. SET AOOftESS SWITCHES TO 17790 

C, SET BANK SWITCH TO "ON" POSITION 

D. PRESS "RESET" 

c PRESS "READ IN" 

f\ THE P*0S*4M WILL LOAO ANO HALT WITH AC*7T?T77 JF PRO- 
GRAM 40AOE0 CORRECTLY, IF THE RROSRa* HALTS WITH AC»0 
A CHECKSUM ERROR HAS OCCURRED, REPCaT The LOADING 
PROCEOUREi 



PACE 3 
4, USE. PROCEDURE 

4.i use procedure tor prg 

a, INSURE TELETYPE JS ON-LINE 

b, turn off teletype reader and punch, 

c, set console register display to ac. 
0, set address. switch to 00208, 

ei set ac s«jtc«es to 000000, {selects prg0) 

r, PRESS I/O 9ESET» PRESS start, 

G, PROGRAM HALTS AT LOC 00233 TO PERMIT SETTING OF AC 
SWITCH OPTIONS, NORMAL OPERATION IS WJTh AC SWITCHES 
SET TO 00B0«0, 

THE AC SWITCH OPTIONS FOR THIS PROGRAM A«EI 

ACS0*1 HALTS PROGRAM AT LOC 0B320I AT END OF 

CURRENT ROUTINE, NUMBER Of ROUTINE JUST 
COMPLETED IS DISPLAYED IN Ac, TO PROCEED, 
PRESS CONTINUE, 

ACSl«l SELECTS ROUTINE WHOSE NgMBER JS SET IN 

ACSia THROUGH ACS17, ROyTJNE JS SELECTED 
AT COMPLETION OP CURRENT ROUTINE, 

ACS2il LOOP PROGRAM, ENTIRE PROGRAM JS REPEATED, 

ACS12 NUMBER OF ROUTINE TO BE SELECTED, 

THR0U5H 

ACS17 ACS! MUST 8E 1, 

K, PRESS CONTINUE, 

I, PROGRAM IS EXECUTED AND HALTS AT LCC 0B27S, PROGRAM 
END WALT, IF NO LOOP OPTIONS ARE SET, 

NOTE 

THE PRINTOUTS* RESULTING FROM ThE EXECUTION OF PRC0, 
MUST 8E VERIFIED BY USER TO DETERMINE CORRECT 
TELEPRINTER OPERATION, (SEE SECTION 9, FOR 
DESCRIPTION,) 
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4.2 uSC PROCEDURE 'OR PRGi 



A, TURN ON TELETYPE PUNCH*,' 

B, WJTH TELETYPE OFf-LJNC, PUNCH » IN, OF 8LANK LEADER, 
RETURN TELETYPE TO ON-LINE POSITION', 

C, LOAD READER WITH BLANK LEAOERf LEAVING VERY LlTTLl 
SLACK SET WEN PUNCH ANO READER, 

D, TURN ON RCAOER, 

r. SET CONSOLE RE8ISTER DISPLAY SWITCH TO AC, 

F, SET ADDRESS SWITCHES TO 00300, 

C, SET AC SWITCHES TO 000001, (SELECTS PROl> 

H, PRESS I/O RESET I PRESS START, 

I, PROGRAM HALTS At LOC 0123? TO PERMlf SETTING OF AC 
SH|TCH OPTIONS, NORMAL OPERATION IS wpw AC SWITCHES 
SET TO 040000, to CAUSE PROGRAM TO hALT.0N»ER*OR. 

THE AC SWITCH OPTIONS FOR THIS PROGRAM ARE 

ACS0«1 HALTS PR08RAH AT LOC 00320, AT END Or 

CURRENT ROUTINE, NUMBER OF ROUTINE JUST 
COMPLETED IS OISPLAYED IN Ac, TO PROCEED, 
PRESS CONTINUE, 

ACSH1 SELECT ROUTINE WHOSE NUMBER IS SET IN ACS18 
THROUGH ACS17, ROUTINE IS SELECTED UPON 
ROUTINE'S COMPLETION, 

ACS2il LOOP PROGRAM, ENTIRE PsOGRA* IS REPEATED, 

*CS3«i HALT-ON-ERROR, 8AD CHARACTER IS DISPLAYED 
IN AC, 

AC83i0 HALT AT END Of OATA BLOCK IF ERRORS 

OCCURRED, ERROR COUNT IS DISPLAYED IN AC, 

ACS12 NUMBER OF ROUTJNE TO BE SELECTEO, 

THSOU5M . ACS1 MUST BE 1, 

AC81? 

J, PRESS CONTINUE, 

K, PROGRAM IS EXECUTED AND HALTS AT LOC «»275» PROGRAM 

END HALT, JF NO OPTIONS ARE SET, OR IF NO ERRORS OCCUR, 

<S r E SECTION S.1,1 OR 4,1 FOR HALTS) 
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4.3 -ST 9R0CEDURC fO« »8G2 



A, INSURE TELETYPE IS ON. LINE 

B, TURN OrF TELETYPE READER AND PUNCH, 

C, set CONSOLE REGISTER DISPLAY SWITCH TO AC, 
C. SET ADDRESS SWITCHES TO 29808, 

E. SET AC SWITCHES TO 000002, 

T. PRESS I/O RESET* PRESS START, 

C, PROGRAM TITLE IS PRINTED AND PROGRAM HALTS AT LOC 0&8J3 
TO PERMIT SETTING Or AC SWITCH OPTIONS, NORMAL 
OPERATION IS WITH AC SWITCHES SET To 000000, 

THE AC SWITCH OPTIONS FOR THIS PROGRAM ARE 

ACS0«i HALTS PROGRAM AT LOC 00320, AT END OF CURRENT 
ROUTINf, NUMBER or COMPLETED POUTINE IS 
OJSPLAVEO IN AC, TO PROCEED, PRESS CONTINUE, 

ACSH1 SELECT ROUTINE WHOSE NUMBER IS SET IN ACS12 
THROUGH ACS17i ROUTINE IS SELECTED AT 
COMPLETION OF CURRENT RoUTInE, 

ACS2«1 LOOP PROGRAM. ENTIRE PROGRAM IS REPEATED, 

ACS12 NUMBER Or ROUTINE To BE SELECTED. 

THROUGH ACSi MUST BE %, 

ACS1T 

w, PRESS CONTINUE, 

i. rollow teleprinter instructions, 

j, when last routine is completed, and provided that no options 
prevents It* the program stops at program end halt at 

LOC 0BZ75, 

NOTE 

CORRECT KEYBOARD OPERATION IS DETERMINED BY 
USER, BY CHECKING THAT PRINTED CHARACTERS 
COORESPONO WITH CHRACTERS KEYED, 

(SEE SECTIONS 5,1,1 AND 6,1 POP HALTS AnD REMEDY.) 



P*SE 6 
4,4 USE PROCEDURE FQR PR53 



k, TURN ON TELETYPE PUNCH, 

8. WITH TELETYPE Orf-LINC, PUNCH 6 JNChCS OF BLANK LEADER, 
RETURN TELETYPE TO ON-LINE POSITION, 

C, LOAD RCAOER WITH 1LANK LCAOERi LEAVING LITTLE SLACK 
BETWEEN PUNCH AND READER • 

P, TURN ON READER, 

E, SET CONSOLE RC0!5T|R DISPLAY SWITCHES To AC, 

F, SET ADDRESS SWITCHES TO 00800, 

G, SET AC SWITCHES TO 000009, (SELCCTS P«G3> 

H, PRESS I/O RESETj PRESS START, 

I. PROGRAM HALTS At LOC 00239 TO PERMIT SETTING Of AC SWITCH 

OPTIONS, NORMAL OPERATION IS WJTH AC SWITCHES SET TO 040700, 
TO CAUSE PROGRAM HALT«ON«ERROR, 

THE AC SwlTCH OPTIONS POR THIS PROGRAM a«E 

ACS0*1 HALTS PR06RAM AT LOC 003801 UPON ROUTINE'S 
COMPLETION, NUMIER OF CoMRLETEO ROUTINE IS 
OISPlAYEO IN AC, TO PROCEED. PRESS CONTINUE, 

ACSHi SELECT ROUTINE WHOSE NUMBER IS SET IN ACS12 
THROUGH ACSlT, ROUTINE IS SELCCTEO UPON 
ROUTINfts COMPLETION, 

ACS2«1 LOOP PROGRAM, ENTIRE PROGRAM IS REPEATED, 

ACS3«1 HALT-ON-ERROR, BAD CHARACTER IS DISPLAYED IN AC, 

ACS3«0 HALT AT END Of DATA BLOc* IF ERRORS OCCURRED, 
ERROR COUNT JS OISPLAYEO I n AC, 

ACS12 NUMBER OF ROUTINE TO BE SELECTED, 

THROUGH ACSl MUST BE 1, 

ACSi? 

J, PRESS CONTINUE, 

K. PROGRAM IS EXECUTED AND HALTS AT LOC 002**, PROGRAM END 
HALT, IF Hi OPTIONS ARE SET, OR IF nO ERRORS OCCUR, 

(SEE SECTIONS 5,i,X aNO 6,1 FOR HALTS AnO REMEDY,) 



1,5 uSE PROCEDURE FOR PRG« 



A, INSURE TELETYPE IS ON-LINE 

6. turn off teletype reader and punch, 

c, deposit in i,oc *»?!! ano 00022 the 8 bit cooes fc« 
characters to be printed, 

0. sst console register display switch to ac, 

c, sct address switches to 00220, 

f, set ac switches to 000s04, 

g, for full speed operation leave ac80«s, for stalling 

BETWEEN CHARACTERS SET ACSfil, 

h, PRESS I/O RESETi PRESS START, 

i. THE PROfiRAH RUNS CONTlNUOUiLYi PRINTING LINES WITH 

CHARACTERS STORED JN LOC 001821 AND 00022 UNTIL STOPPED 
9V USER, 



PACE 8 
4.6 USE PROCEDURE FOR PRC' AND PRG6 



A, TURN ON TELETYPE PUNCH. 



B, WITH TELETYPE OfP*LlNI, PUNCH « IN, OF BIANK LEADER. 
RETURN TELETYPE TO ON-LINE POSITION, 

C, LOAO READER WITH lLANK LEAOER, LEAVING LITTLE SLACK BETWEEN 
PUNCH AND REAOCR, 

0. TURN ON READER, 

C. FOR PROS, OCPOttt ]N IOC IMS! ANO 00132 THE S-B1T 

CODES FOR CHARACTERS TO IE PUNCHED, 

F, SET CONSOLE REGISTER DISPLAY SWITCH TO AC, 

S. SET ADDRESS SWITCHES TO 01101, 

H, SET AjC SWITCHES TO 100009 OR 00000*°. 

1. FOR PULL SPEEO OPERATION LEAVE ACS0»B, FOR STALLING 
BETWEEN CHARACTERS SET ACSSfll, 

J, PRESS I/O RESETi PRESS START, 

K, THE SELECTED PROGRAM RUNS CONTINUOUSLY UNTIL STOPPED BY 
USER, UNLESS ERRO«S OCCUR, AC SWjTcM OPTIONS MAY BE SET 
AT ANY TIME. 

THE AC SWITCH OPTIONS FOR THIS PROGRAM ARE 

ACSSfl HALT«ON*ERR0R, BAD CHARACTER IS OISPtAYEO IN AC, 

ACS3«0 HALT AT END OF DATA BLOCK IF ERRORS OCCURRED, 
ERROR COUNT IN AC, 

(SEE SECTIONS S.H i FOR HALTS AND REMEDY,) 
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5, OPERATING P«OCE0UfiE 

'•>.- PROGRAM AND/OR OPERATOR ACTION 

5,1,1 NORMAL MALTS 



LOC 8^233 OPTION SET HALT, OCCURS DURING PRG«» PR61, 
PRG2, AND PRG3 TO PCRMJT SETTING 0* OPTIONS, 
SIT OPTIONS DESIRED AND PRESS CONTINUE, 

LOC 20275 PROGRAM ENO HALT, OCCURS AT END OP PRG»i 
PRGTi PR58i AND PR»3, If NO "LOOP PROGRAM" 
OPTION! IS SET, SET DESIRED OPTIONS ANO 
P*CM CONTINUE, IF NO OPTIONS ARE SETi THIS 
HALT REOCCURSi 

LOC *S9320 ROUTINE END HALT, OCCURS AT END Or CURRENT 
ROUTINE DURING PRGB, PRS4, PRGg, ANO PRG3, 
If ACS0 IS ON, AC OISPl»VS ROUTINE NUMBER, 
TO PROCEED, PRESS CONTINUE, 



P*C£ IB 



6, ERRORS 



6,1 ERROR HALT* AND DESCRIPTION 



LOC 0^177 



LOG 00256 



LOC 01044 



LOC 21065 
LOC 31235 

LOC C1237 

LOC 81245 
LOC 23036 



INCORRECT PROGRAM NUMBER tCLtCTEO, SET THC 
PROGRAM NUMBER IN AC314 THOUGH ACS17 AND 
PRESS CONTINUE, 

NONEXISTENT ROUTINE NUMBER SELECTED'. SET THE 
CORRECT NUMBER IN AC818 THROUGH ASC17 ANO PRESS 
CONTINUE, 

SYNC ERROR, SYNC REAOER SUBROUTINE HAS NOT 
rOUNQ SYNC CHARACTER *|TNl* 145 CHARACTERS, 
POSITION TAPE IN REAOER SO THAT SYNC CHAR- 
ACTER (RUlOUT) IS WITHJnC 145 CHARACTERS 
FROM READ STATION, AND PRESS CONTINUE, 
(PRGli PR03, PR66), 

unexpected interrupt, a no*«teltype device 
has causeo interrupt, turn of? device ano 
press continue, <pr6l, »*g3, prg61, 

read check error a, bad character in ac, 
press continue, (acs9 must be on por this 
halt to occur,) <prs4# rr93* rr66), 

read check error b, follow up halt, 
correct character in ac, to proceeo, 
press continue, {prol, prc3, pr66j, 

block errors halt, num8er of errors in ac,' to 
rroceeoi press continue. <prgt,prg3,prg6) , 

PR82, ROUTINE ERROR HALT, KSF FAILEO To SKIP 
wJTh KEYBOARD FLAG SET, PRESSING CONTINUE ENTERS 
SCOPE LOOP THAT SKIPS On FLAG CONTINUOUSLY, 
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7. RESTRICTIONS 

7,1 ST4RTJN5 restrictions 



ALU PROGRAMS MUST BE STARTEO AT U.0C 130200, 
7,2 Opiums RESTRICTIONS 

PRGB AND PH51 MUST PRECEDE EXECUTION Of ORGS, 
PRG3 MUST PRECEDE EXECUTION OF PRGZ, 

P. MISCELLANEOUS 
8,1 EXECUTION TIME 



PRG0I 16 MJN (MAX) 

PRGil 30 MJN (MAXI 

PROS I USER OEPENOENT 

PRC3I 40 MJN (MAX) 

PR64 THROUGH PR810 ARE CONTINUOUSLY RUNNING PROGRAMS 
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9. PROGRAM DESCRIPTIONS 



the POP*i»« Af*33/3s TrueType tests part i, consist of ? 
programs Numbered from a to ft i 

9.1 PRBB-PRlNTE* TEST 



THIS PROGRAM CONTAINS 31 ROUTINES NUMBERED FROM TO 36 
(OCTAL). 

R.TWi CARRIAGE RETURN TEST, CHECKS ABILITY Of 
CARRIAGE RETURN TO PRINT POSITION 1 FROM 
ALL OTHER PRINT POSITIONS. NO PRINTING 
SHOULD OCCUR IN ANY PRJnT POSITION OTHER 

than position i, 

rtn1 rioht maroin tut shows when the right margin 
is incorrectly adjusted, the test prints i« 
groups of ..it i followed sy characters -i- - 
a correctly adjusted margin hill give the 
following prjntouti 

the is are printeo to facilitate counting 
print positions, 

stn2 space test, the test prints / in alternate 

positions of the line, afttr a oouble 
carriage return, jt spaces to the blank 

positions ano prints a left slant slash, a 
oouble carriage return js issued after printing 
each left slant slash, 

rtn3 line f|co test, the test prjnts a left slash 
followed by a line feeo, followed »y random 
stalls until 72 slashes hav£ been printed, 

THE RESULT IS A LEFT SLaNTEo LINE FROM 
POSITION 1 TO 72, VERTICAL SPACING VARIATIONS 
WILL INDICATE IF ADJUSTMENT IS REQUIRED, 
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(9il COMT : 


r ai 














STM 


TYPES 


LINE 


OF 


CHARACTERS 


*6C, 




STN5 


TYPES 


LIME 


OF 


CHARACTERS 


OU, 




«YN$. 


TYPfS 


LINE 


OF 


CHARACTERS 


SHI, 




STNT 


TYPES ilhii 


OF 


CHARACTERS 


JUL, 




BTN1? 


TYPES 


WINE 


OF 


CHARACTERS 


HNO. 




RTNU 


TYPES 


LINE 


OF 


CHARACTERS 


POR, 




RTK12 


TYPES 


LINE 


OF 


CHARACTERS 


STy, 




RTN13 


TYPES 


LINE OF 


CHARACTERS . 


vxa, 




HTN14 


TYPES 


LINE 


OF 


CHARACTERS 


Tie 




»TKlt5 


TYPES 


LINE 


OF 


CHARACTERS 


123 




RTNi* 


TYPES 


LINE 


OF 


CHARACTERS 


496 




RYN17 


TYPES 


LINE 


OF 


CHARACTERS 


7S9 




»TN2e 


TYPES 


LINE 


OF 


CHARACTERS 


!"• 




»TN2i 


TYPES 


LINE 


OF 


CHARACTERS 


SKA 




RTN22 


TYPES 


LINE 


OF 


CHARACTERS 


"<> 




RTM23 


TVPES 


LINE 


OF 


CHARACTERS 


•*i 




RTN2* 


TYPES 


LINE 


OF 


CHARACTERS 


• t/ 




RTN25 


TYPES 


LINE 


OF 


CHARACTERS 


IX 




RTN26 


TYPES 


LINE 


OF 


CHARACTERS 


«>T 




RTN27 


TYPES 


LINE 


OF 


CHARACTERS 


»t\ 




RTN30 


TYPES 


LINE 


OF 


CHARACTERS 


3«* 




rtnsi 


TYPES 


LINE 


OF 


ALL CHARACTERS 


t 



PACE X* 



19,1 CONT'D) 



RTN.J2 TYPES LINE Of ALL CHARACTERS, HXEO DELAY 
BETWEEN characters IN A line, DELAY IS 
OCTCRHJNEO AT RANDOM, 

RTN33 TYPES SIX LINK! Of ASRJ3 WORST CASE PATTERN. 

RTN34 TYPES SIX LINES Of ASR33 WORST CASE PATTERN, 
PtXED DELAY BETWEEN CHARACTERS IN A ulNE, 
DELAY |S DETERMINED AT RANDOM, 
TME ASR53 WORST CASE PATTERN CONSISTS OF 
CHARACTERS '*W/ 

RTN35 TYPES SIX LINE* Of ASRJ5 WORST CASE 
PATTERN, 

RTN36 TYPES SIX LINES Of ASR35 WORST CASE PATTERN, 
FIXED OCLAY SETWEEN CHARACTER IN A LINE, 
DELAY IS OCTCRM1NED AT RANDOM, 

THE ASR3S WORIT CASE PATTERN CONSISTS OF 
CHARACTERS »C?C 



»A5E 15 
9,2 sRSiiPUNC* TEST 



THIS PROGRAM CONTAINS 15 ROUTINES NUMBERED FROM TO 16 
(OCtAtJt THE TEST SEQUENCE USED 8Y THE ROUTINES IS 

A, SET UP DATA BLOCK 

B, PUNCH It ACER 

C, PUNCH IVNC CHARACTER musouT) 

0. PUNCH DATA BUCK 

C, 8VnC THE «CADER 

F, SCAD DATA BLOCK 

C. PUNCH TRAlLE* 

H, WAIT TO* «CADf* TO COMPLETE READING Of DATA BLOCK BEFORE 
GOING TO NCXT ROUTINE, 

RTNf PUNCH AND READ CHECK BLOCK OF ALL M. 

RTNJ PUNCH ANO RIAO CHICK BLOCK 0? CHANNEL 1. 

RTN3 PUNCH AND READ CHECK BLOCK or CHANNEL Z, 

RTN3 PUNCH AND READ CHECK BLOCK Of CHANNEL 3, 

RTN4 PUNCH AND READ CHECK SLOCK OF CHANNEL «t 

«T^5 PUNCH AND READ CHECK BLOCK OF CHANNEL S, 

RTN6 PUNCH AND READ CHECK BLCCK OF CHANNEL *. 

RTNT PUNCH AND READ CHECK BLOCK OF CHANNEL 7, 

RTN13 PUNCH AND READ CHECK BLOCK OF CHANNEL 8i 

RTMl PUNCH AND READ CHECK BL^CK z F SLIDING 1 PATTERN, 

RTN12 PUNCH ANO REAO CHECK BLCCK 0? SLIDING 2 PATTERN, 

RTM3 PUNCH AND REAO CHECK BLOCK OF IS AND BS PATTERN, 

RTM4 SAME AS RTN13| BUT RANDC* DELAY BETWEEN 
CHARACTERS PUNCHED, 

RTM5 PgNCH ANO REAO CHECK BLOCK OF BINARY COUNT 
PATTERN, 

RTM6 SAME A| RTNiSi BUT RANOC DELAY BETWEEN 
CHARACTERS PUNCHED, 



PAOE 16 
9.3 PRC2iKEYB0ARD TEST 



THIS PROGRAM CONTANS 3 ROUTINES NUMBERED MJH TO 2. 

STN* CHtCKf. THAT KSF COWHAND SKIPS WHEN FLAOn. 
TE*T If DONE 1*0* TIKES'. 

RTNt ECHO TEST, ANT CHARACTtftS RfAO FROM kCySQARO 
ARE TYRED, CORRECT OPERATION VERIFICATION IS 
OONC VUWALLV IV USER. HEADING A RUBOUT 
CHARACTER END* THE TEST, 

RT*2 OCTAL EOUlVALINCE TEST, THE OCTAL IBU.lVAi.Clff 
OF ANY CHARACTERS KEYfO IS TYPED, REaOJNG A 
RU80UT ENDS THE TEST, 

9,4 PROSiCOHBlNEO READER! PRINTER* PUNCH TEST 

THIS PROGRAH CONTAINS S7 ROUTINES NUMBERED FROM TO 3? 
(OCTAL). ALL ROUTINES USE THE FOLLOnING SEQuCNCEi 

i. TILL CORE SLOCK ttltM DATA TO SE PUNCHED/PRINTED 

B, PUNCH LEADER 

P. PUNCH SYNC CHARACTER 

0, PUNCH DATA SLOCK (NO DELAY BETWEEN CHARACTCRS) 

C. SYNC THE READER 

F, READ/CHECK DATA SUCK (RANDOM DELAY 8ETWEEN CHARACTERS) 

G, PUNCH DATA BLOCK (RANOo" DELAY BETWEEN CHARACTERS) 
h, REAO DATA BLOCK <N DELAY BETWEEN CHARACTERS) 

1. PUNCH TRAILER 

J, wAIY *"0R READER TO COMPLETE BEADInG DATA BLOCK 

K, END Of TEST SEQUENCE 

RTNfc PUNCH/PRINT AND REAO CHECK BLOCK OF ABC 
RTNl PUNCH/PRINT ANO REAO CHECK BLOCK OF Olf 
RTNS PUNCH/PRINT AND BEAO CHECK BLOCK OF GHJ 



(9,4 CONT'D) 
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RTN3 PyNCM/PRfNT AND <?£AD CHECK BLOCK Of JKL 

RTN* PUNCH/PRINT AND READ CHECK BLOCK QT MNO 

RTnJ PUNCM/PRtNT ANO READ CHECK BLOCK Of POR 

RTN6 PUNCH/PRINT AND R|AO CHECK BLOCK Of STU 

RTN? PUNCH/PRJNT AND READ CH|CK BLOCK Of VWX 

RTN10 PUNCH/PRINT AND RCAO CHECK BLOCK OF Yli 

RTNU PUNCH/PRINT ANO RfAO CHECK BLOCK Or 185 

RTN12 PUNCH/PRINT ANO ftCAQ CHECK 8L0CK Of 49« 

RTN13 PUNCH/PRINf AND READ CHECK BLOCK OP 789 

RTN14 PUNCH/PRINT AND READ CHECK BLOCK OP l"« 

RTN15 PUNCH/PR INt ANO READ CHECK BLOCK Of SX4 

RTN16 PUNCH/PRINT AND READ CH£CK BLOCK Of M), 

RTN17 PUNCH/PRINT ANO READ CHECK BLOCK Of •*, 

RTN20 PUNCH/PRlNf ANO READ CHECK BLOCK Of • ,/ 

RTN21 PUNCH/PRINT AND READ CHECK BLOCK Of t)< 

RTN22 PUNCH/PRINT ANO READ CHECK BLOCK Of «>7 

RTN23 PgNCH/PRINt AND READ CHECK BLOCK Of »CV 

RTN24 PUNCH/PRINT ANO REAO CHECK 8LOCK Of 3»* 

RTN25 PUNCH/PRINt ANO READ CHECK BLOCK Of ALL 
PRINTABLE CHARACTER, 

RTN26 PUNCH/PRINT ANO READ CHECK BLOCK Of ASR33 
PRINTER WORST CASE PATTgRN, t'*W/> 

RTN27 PUNCH/PRINT AND READ CHECK BLOCK Of A8R33 

PRINTER WORST CASE PATTERN WITH INTERSPERSED 
BLANKS, 

RTKi3? PUNCH/PRINT ANO READ CHECK BLOCK Of ASR35 
PRINTER WORST CASE PATTERN, <'C*C> 
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<9i< CONT'D) 



RTN31 PUNCH/PRINT AND READ C*£CK BLOCK Of ASR35 

PRINTER WORST CASE PATTERN WJTH INTERSPERSED 
BWANKt'* 

rtnS2 punch/Mint ano riao check blocks of space, 

RUIOUT (It ANO 08), 

9.5 PR04-PHINTER EXERCISER 

PRINTS LINES WITH DATA STORED IN LOC i«02l ANO 00022, 
ACS0 CONTROLS PULL SPEED, OR STALL OPERATION. 

9.6 ? R ??.* N0 P * B * PUNCH EXERCISER* 

PROS PUNCHES AND READ CHECKS DATA BLOCKS WITH OATA STOREO 
IN LOC 00021 ANO 00082, ACS0 CONTROLS PULL SPEEOi OR STALL 
OPERATION! 

PR56 PUNCHES AND REAO CHECKS BLOCKS OP BINARY COUNT PATTERN, 
RANDOM STALLS BETWEEN CHARACTERS, 

THE TWO EXERCISERS USE THE FOLLOWING SEqUENcEI 

a, set up data block* oetermjne whether pull speed, or stall 
operationi 

s. punch leader 

c, punch sync character (rubout) 

0, punch data block 

t. SYNC THE READER 

jj r, READ DATA BLOCK 

5, PUNCH OATA BLOCK 

w, BACK TO STEP f, 
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/PnP- 1 5-AS^33-?5 TFLFTvpr t^st S-F-aRT j 

/COPYRIGHT I960, OISHaL E ^ U I P M £ M T ;"—"., N^Njic-., */.$■■", 

/ 

/PRG0-PR1NTER TEST 

/"d-PUNCH TEST 

/PPGg-fEYBOARO TEST 

/PRG3-C0MBINED READEP.PRINTER.PUhcH TeST. 

/PRG4-PRINTJ.R pXj-RClS^P. PRINTS LtNfS Op ChARACTj-RS SToR e O IN LOC 0021 

/ AND 0022. 

/PRG5-PUNCH EXERCISER. PUNCHES A ND REaD CHF-C kS DA~U BLOCKS OF Da^a 

/ STORED IN LOC 0021 AND 0*22. 

/PRG6-PUNCH EXERCISER. PUNCHES A NO REaD CHECKS Bt-OcKS OF bINaRY COUNT 

/ pattern. 
/ 

/STARTING ADDRESS :e»0?00 
.EJECT 



page 



2 


15TTP2 




. A8S 


?0020 






.L C 2e 


0002A 


000000 


KSTART 





00021 


000000 


PTEMP 





00022 


000000 


PfFMPl 





00023 


000000 


DELAYM 





00024 


620002 




JMP. 


00025 


000000 







00026 


000000 


DELAYS 





00027 


000000 


PrGN-u* 





00030 


000017 


PRGMSK 


17 


00031 


777770 


PRCLIM 


-10 


00032 


000111 


PSM 


PRGTAB 


00033 


000000 


RTNNO 





00034 


000000 


CURT ST 





00035 


000000 


NXTST 





00036 


000077 


TSTMSK 


77 


00037 


000000 


MSCTR 





0004(1 


000000 


MILCTR 





00041 


777142 


MILl 


-636 


00042 


000000 


TEMP 





00043 


000000 


TEMPI 





00044 


000000 


TEMPU 





00045 


000000 


UTEMP 





00046 


000000 


UTEMPl 





00047 


000000 


UTEMP2 





00050 


000000 


CTRA 





00051 


000000 


CTRB 





0005? 


040000 


SR3MSK 


040002 


00053 


000000 


ERRCR 





00054 


000000 


fRRCTR 





00055 


000277 


DLYMSK 


277 


00056 


000000 


PELAG 





00057 


000000 


PLKCNT 





00060 


000215 


CR 


215 


0P061 


00*212 


LF 


212 


00^6? 


77741*1 


MR80UT 


-377 
.EJECT 



PAGt 3 15TTP2 



.' ,1 ? 6 3 


0P!*000 


RBUSY 


O 


5)00'- 


PvV.:?!* 


LINK 


/ 


■» ■> n „ t 


? .» 


AC 


f 


av^-bi- 


00Z.240 


<^ACE 


_' 4 


3 7?iS7 


00A257 


C257 


'5^ 


00070 


00?334 


C334 


33* 


»0071 


000001 


Kl 


1 


00«S72 


777777 


Ml 


-1 


00* 73 


777776 


M2 


-2 


00074 


777762 


M16 


-16 


00075 


777734 


M44 


-44 


00376 


777670 


M110 


-110 


»e»C*77 


777667 


Mill 


-111 


00100 


000000 


TEMO 





00101 


000000 


T£MR 





00102 


000000 


FLAG 





00103 


000077 


K77 


77 


00104 


777740 


M40 


-40 


00105 


000100 


C100 


100 


00106 


000240 


C240 


243 


00107 


740100 


SKIpMA 


SMA 


00110 


741100 


SKIPPA 


SPA 


00111 


002071 


PRGTAB 


PRG0 


00112 


002527 




PRGl 


00113 


003011 




PRG2 


00114 


003107 




PRG3 


00115 


003336 




PRG4 


00116 


003346 




PRG5 


00117 


003373 




PRG6 




700322 


KRA=700322 








.EJECT 



PAGE 



1S T T 



00177 






.LOC 


177 




03177 


74P040 




HUT 






/INCORRECT PROGRAM NUMBER 


00203 


750004 


START 


LAS 






/READ SWITCHES 


00201 


500030 




A NO 




PRCMSK 


/AND WITH PRCMSK 


00?02 


3*0031 




Tad 




PR&LIM 


/ADO PROGRAM LIMIT 


0f»?03 


740300 




SmA! 


SHA 




/VALID PROGRAM NUMBER? 


00204 


600177 




JMP 




177 


/NO. 


00205 


750004 




LAS 






/YES. READ SWITCHES 


00206 


500030 




AND 




PRGMSK 




00207 


040027 




DAC 




PRGNUM 


/SAVE PROGRAM NUMBER 


00210 


340032 




Tad 




PSW 


/DEVELOP PROGRAM 


00211 


040042 




OAC 




TEMP 


/ADDRESS. 


00212 


220042 




LAC* 




TEMP 




00213 


040221 




DAC 




PRGADR 


/STORE ADDRESS 


00214 


100533 




JMS 




Movvr 


/INITIALIZE INTERRUPT AREA 


00215 


000024 




24 








00216 


000001 




1 








00217 


777776 




-2 








08220 


620221 




J M P» 




.♦i 


/<"> TO S^CTED PROGRAM 


00221 


000000 


PRGADR 











00233 






.LOC 


233 




00233 


750040 


SRSET 


hlt: 


CLA 




/SELECT OPTIONS 


00234 


200020 


GETRQY 


LAC 




kSTaRT 


/GET ADOR OF 1ST RTN. 


0023c 


040035 




DAC 




NXTST 


/STORE AT NXTST. 


00236 


100277 




JMS 




TORWD 




00237 


750004 




LAS 






/READ SWITCHES 


00240 


742010 




RTL 








00241 


740400 




SNL 






/SELECT ROUTINE? 


00?42 


620034 




JMP» 




CURTST 


/NO. STAT WITH CURRENT ROUTINE 


00?43 


750004 




LAS 






/YES. READ SWITCHES. 


00244 


500036 




ano 




TSTMSK 




00245 


74P001 




CMA 








00246 


340071 




TAD 




Kl 




30247 


340033 




TAO 




RTMNO 




00250 


751200 




SNA! 


CLA 




/IS IT THIS ROUTINF? 


00251 


620034 




JMP» 




CURTST 


/YES. GO DO IT. 


? 2 c " 


?8?07S 




LAC 




NXTST 


/NO. 


P;»75? 


34C071 




tad 




Kl 




0P25* 


750200 




SHA! 


ClA 




/LAST ROUTjNE? 


00255 


600276 




JMP 




GEtrOY*2 


/NO. 


?0 ;s*. 


750040 


1NCRTN 


HLT ! 


CLA 




/YES. INCORRECT ROUTINE NUMBER 


iV?s- 


fr002?4 




JMP 




getrdy 










.EJECT 







PAGE 



1*TTP; 



?5?56P 

,*0?A- 


'0031 3 
75P004 


CHAIN 


JMS 


'•HALT 


/hALT?(ACS0) 
/PEaO SWITCHES 


*ti *-? 


~> &??• £» 




RT' 






30? 6 3 


" 4J4?0 




^l 




/ROUTjNF SElECT?(ACS1) 


•*0?6'4 


600234 




J MP 


r >ETS r )Y 


/YEs. 


00265 


200035 




LAC 


tvXTST 


00266 


340071 




TAP! 


*1 




00?67 


750200 




SZAtCLA 




/LAST RTN? 


00270 


600236 


■~ . 


JMP 


GETRDY+2 


/NO. 


00?71 


750004 




LAS 




/YES 


0027? 


742010 




RTL 






00273 


751100 




SPAiCLA 




/LOOP PROGRAM? (ACS2) 


00?74 


600234 




JMP 


getRdy 


/YES. 


00275 


750040 


PRGEND 


hlt: cla 




/NO. PROGRAM END HALT. 


00?76 


600260 




JMP 


CHAIN 




00277 


000000 


FORHO 









00300 


220035 




LAC* 


NXTST 


/GET NEXT RTN NO. 


00301 


040033 




DAC 


RTNNO 


/STORE AT RTNNO. 


00302 


440035 




IS? 


NXTST 




00303 


200035 




L AC 


(gXTST 


/GET CUrrE n T RT N N U M BER 


00304 


04004? 




DAC 


TEMP 


m « t l t n 


00305 


440035 




IS2 


NXTST 




00306 


200035 




LAC 


N'XTST 


/GET CURRENT RTN ADDRESS 


00367 


040034 




OAC 


CURTST 




00310 


220042 




LAC» 


TEMP 


/GET NEXT RTN ADDRESS 


00311 


040035 




OAC 


NXTST 




0031? 


620277 




JMP* 


FORWO 


/EXIT. 


00313 


000000 


SHALT 









00314 


750004 




LAS 




/READ SWITCHES 


00315 


740100 




SMA 




/HALT? UCS0) 


00316 


620313 




JMP« 


SHALT 


/NO. EXJT. 


00317 
00320 
00321 


200033 

740040 
620313 




LAC 
HLT 
JMP» 


RTNNO 
SHALT 


/GET ROUTINE NUMBER 
/ROUTINE a n D HALT 
/EXjT 


0032? 


000000 


STCTR 









00323 


22032? 




LAC» 


STCTR 


/GET LOC ADDRESS 


00324 


04004? 




DAC 


TEMP 


/SAVE AT TEMP 


00325 


440322 




IS? 


STCTR 




00326 


2203?? 




LAC« 


STCTR 


/GET COUNT AND STORE 


00327 


0600*2 




OAC* 


TEMP 


/AT DESIRED LOCATION 


00330 


440322 




ISZ 


STCTR 




00331 


754000 




CLAiCLL 






0033? 


62032? 




JMp« 


STCTR 


/EXIT 




100322 


SETLOC= 


JMS STCTf 
.EJECT 


i 





PAGE 



15TTP2 



00333 


000000 


00334 


200023 


e«33 5 


0400^7 


00336 


620337 


00337 


000340 


00340 


200041 


00341 


040040 


00342 


440.040 


00343 


600342 


00344 


44 00 3 7 


00345 


600336 


00346 


754000 


00347 


620333 




100333 


00350 


000000 


00351 


1004U 


0035? 


500055 


00353 


741200 


00354 


60035 t 


00355 


74000J 


00356 


340071 


00357 


040023 


00360 


620350 


00361 


00(^000 


00362 


220361 


00363 


040375 


00364 


440361 


00365 


100451 


00366 


000372 


00367 


440375 


00370 


600365 


00371 


620361 


0037? 


00001 5 


00373 


000012 


00374 


000001 


00375 


000000 


0P?7^ 


000000. 


00377 


440056 


00400 


700406 


0040 1 - 


?000>56 


004P? 


751200 


004P3 


600406 


00404 


700401 


0040=! 


600401 


00406 


700402 


00407 


140056 


004lP 


6?03 7 6 



DLYMS 









LAC 


DELAYM 




OAC 


MSCTP 




JMP* 


.♦1 




.♦1 






LAC 


MILl 




DAC 


MILCTR 




IS2 


MILCTR 




JMP 


.-1 




ISH. 


MSCTR 




JMP 


,-7 




CLAJCLL 






JMP* 


OLyMS 


DELAYs 


;JHS OLYMS 




OLCNT 









JMS 


RANGEN 




AND 


OLYMSK 




SNA 






JMP 


.-3 




CMA 






TAO 


Kl 




DAC 


DELAYM 




JMP* 


DLCNT 


CRLF 









LAC* 


CRLF 




OAC 


CRCTR 




IS? 


CRLF 




JMS 


TYPSTG 




.+4 






isz 


CRCTR 




JMP 


.-3 




JMP, 


CRLF 




0015 






0012 






0001 




CRCTR 







PUNCH 









IS? 


PFLAG 




TLS 






LAC 


PFLAG 




SN A ! C L A 






JMP 


.+3 




TS F 






JMP 


.-4 




TCF 






r? M 


PFLAG 




JMP* 


PUNCH 




.EJECT 





/SET MILLISECOND COUNT 
/STORE IN MSCTR 



/set 1 m s constant 
/store at milctr 
/delay one 
/millisecono 
/delayeo number of 
/milliSccOnqS required? 

/YEs. 
/EXIT. 



/GET RANDOM NUMBER 

/MASK OUT UNOESIRED BITS 

/0? 

/>TS. GET ANOTHER NUMBER 



/STORE DFLAY COUNT 
/EXIT 

/GET CRLF COUNT 

/and store it 
/crlf once 
/Done? 

/NO. CRLF AGAIN 

/YES. EXIT. 

/CR 

/LF 

/END CODE 

/CRLF COUNTER 



/punch/print 
/get c<pfl4g> 
/fl a g reset? 

/YES 

/NO, FLAG uP? 

/NO. 

/YES, CLFAR PRINTER FLAG 

/CLEAR PFLAG 

/EXIT. 



PAGE 



1 C TTP? 







/Random 


KX'«BER 


GENERATOR 


? '^411 


? S" P l* f >' 


RAMGEN 


? 




Wt\2 


?&.eAi7 




Lac 


RANDE* 


00413 


5444,'] 




SAO 


<RAnT>*l + 10 


00414 


74J000 




SKp 




f»04l^ 


6004?5 




JMP 


RAfxTAO-1 


0041* 


20 4 482 




LAC 


(RANTBL 


00417 


04B437 




DAC 


RAN'DEX 


084 2* 


9034 36 




LAC 


RANCON 


00421 


745100 




SPA!CLL 




00422 


74 4002 




STL 




00423 


740010 




RAL 




0042* 


040436 




OAC 


RANCON 


00425 


220437 




LAC« 


RAMDEX 


00426 


340436 


RANTAD 


TAn 


RANCON 


00427 


060437 




DAC» 


RANDEX 


00430 


200450 




LAC 


RANSAV 


00431 


740020 




RAR 




0043? 


360437 




tao» 


RANDFX 


00433 


840450 




DAC 


PANSaV 


00434 


44P437 




ISZ 


RANDEX 


00435 


620411 




JMP* 


RANGEN 


00436 


123456 


RANCON 


123456 




00437 


000450 


RANOEX 


RANTBL+ 


10 


00440 


654321 


RANTBL 


654321 




00441 


361416 




361416 




0044? 


055363 




055363 




00443 


546060 




546060 




00444 


243035 




243035 




00445 


762572 




762572 




00446 


453237 




453237 




00447 


150214 




150214 




00450 


000000 


RAnSAV 



.EJECT 





pagf 



8 


15TTP? 


(10451 


000000 


0045? 


?2045l 


00453 


040100 


00454 


14010? 


00455 


440451 


0045ft 


220100 


00457 


74?020 


00460 


742020 


00461 


7420?0 


0046? 


100467 


00463 


220100 


00*6« 


100*67 


00465 


440100 


30466 


600456 


00467 


000000 


00470 


500103 


00471 


040101 


0047? 


200102 


00473 


750200 


00474 


600504 


00475 


200101 


00476 


741?00 


00477 


60050? 


0050? 


1005?4 


00501 


6?0467 


0050? 


4 40102 


00503 


620467 


005 4 


I40I0? 


00505 


200101 


00506 


740001 


00507 


340071 


00510 


74] 200 


00511 


60050 


00512 


34007i 


005lj 


75l?00 


00514 


62045;] 


0515 


?00107 


00516 


040526 


00^17 


200101 


005?0 


1005?'= 


005?1 


200110 


005 2 ? 


405.96 


5 ? 3 


62046"' 


005?4 


04100 


5 •> 5 


340104 


00596 


7411ft': 


005?7 


340105 


00530 


3 4 017 6 


00531 


10*1376 


0053? 


6?05?4 



/TYPE CHa&ACtE" STRING SUBROUTINE 



TYPSTG 



TSCi 



TSC2 



TyPAT 



TYPSP 



PRINT 
SWITCH 



K77 





LAC* 

CAC 

02" 

ISH 

LAC» 

RTR 

RTR 

PTR 

JMS 

LAC* 

JMS 

IS? 

jmp 



AND 

DAC 

LAC 

SZa!CLA 

JMP 

LAC 

SNA 

JMP 

JMS 

JMP» 

IS? 

JMP* 

DZ* 

LAC 

Cma 

TAD 
SNA 
JMP 
TAH 

SNaVCLA 

JMP» 

L AC 

PAC 

LAC 

JMS 

LAC 

OAC 

JMP» 

P 

TAH 

SP A 

TAP 

TAP 

JMS 

JMP* 

.EJECT 



TYPSTG 

TEMQ 

ECAG 

TYPSTG 

TEMQ 



TSC2 
TEMQ 
TSC2 
TEMQ 
TSCI 



TEMR 
FLAG 

TYPSP 
TEMR 

.+3 
PRINT 

TSC2 
FLAG 
TSC2 
FLAG 
TFMR 

Kl 

TYPAT 
«1 

TYPSTG 

S K jPmA 

SWITCH 

TEMR 

PRINT 

SKIPPA 

SWITCH 

TSC2 

C100 
"240 

pusiCn 
print 



/GET AND STORE STRING 

/ADDRESS 

/CLEAR FLAG 

/SET UP EXIT 

/PICK uP DATA, 



/GO TYPE 
/PICK UP 
/GO TYPE 



1ST CHARACTER 

DATA 

2ND CHARACTER 



/GO BAC K FoR MORE. 

/MA S K OFF 6 BITS 
/SAVE CHARACTER 
/TEST "SPECIAL" FALG. 

/SPECIAL 

/REGULAR 

/07 

/YES. SET FLAG TO SPECIAL 

/NO. GO PRINT IT 

/RETURN 

/SET FLAG TO "SPECIAL" 

/RETURN. 

/CLEAR FLAG. 

/SET CHARACTER 



/IT>S0: PRINT », 
/TEST FOR 01 
/0l? 

E*! T C°DF 



/YES 
/SET 



E XIT 
C<SV>rTCn> To "SmA" 



/GET CHARACTER 
/GO PRINT IT 
/SET C<SW!TCH) 



TO "SPA' 



/RETUBN. 

/COMPARE 
/CHARGED 



WITH 40 
TO SMa FOR 



SPECIAL COOES, 



/print Character 
/return 



PAGE 



i^tt ? 



■'3533 


m?w<h 


0P534 


220533 


.10 5 3 5 


040554 


00536 


440533 


00537 


?20533 


005«F 


04055=5 


.00541 


440533 


0J54?' 


220533 


005 4'3 


040556 


00*5 44 


440533 


00545 


220554 


00546 


060555 


00547 


440554 


00550 


440555 


00551 


440556 


00552 


600545 


09553 


620533 


00554 


000000 


00555 


000000 


00556 


000000 


00557 


000000 


00560 


140562 


00561 


620557 


0056? 


000000 


00563 


000000 


00564 


000377 


00565 


000000 


03566 


200562 


00567 


04B563 


00570 


340071 


00571 


500564 


00572 


04056? 


00573 


200563 


00574 


620565 


00575 


000000 


00576 


040612 


00577 


220575 


00600 


7 40001 


00601 


34^071 


0060? 


440575 


00603 


340612 


00604 


750200 


00605 


600610 


00606 


440575 


00607 


620575 


00610 


200612 


00611 


620575 


0061? 


000000 




100533 



*0WE 



MOVEA 



FADDR 
TAODR 
MCTR 





LA^« 

DAC 

IS? 

LAC* 

OAC 

ISZ 

LAC* 

OAC 

ISZ 

LAC* 

OAC* 

ISZ 

ISH 

ISZ 

JMP 

JMP. 









Mowr 

MOVVE 

MOWF 

TADOR 

MOWF 

MOVVE 

MCTR 

MOWF 

FAOOR 

TADOR 

FADOR 

TADOR 

MCTR 

MOVEA 

MOVVE 



/SUBROUTINE TO 
INITPT 



PT0 
PT1 
PTMSK 



DZM 

JMP* 





377 



INITIALIZE BINARY PATTERN 
/EXIT 



PT0 
IMITPT 



/SET AC WITH NEXT BINARY CHARACTER SUBROUTINE 
GETPTT 



LAC 
OAC 
TAO 
ANn 
OAC 
LAC 
JMP» 
/SUBROUTINE TO 



PT0 
PTl 
Kl 
PT"SK 

PT0 
PTl 
GETPTT 



/GET PT0 
/STORE AT PTl 
/INCREMENT NUMBER 
/LIMIT TO 8 SITS 
/STORE AT PTpi 
/GET PTl 
/EXIT 



CHCK 



WCHK 




OAC 
LAC* 
CMA 

tad 

ISZ 

TAO 

S?A!CLA 

JMP 

ISZ 

JMP* 

LAC 

JMP« 





COMPARE CUC) TO C<CALL + l> 



WCHK 
CHCK 

Kl 

CHCK 

WC^K 

. +3 
CHCK 
CHCK 
WC-'K 

CHCK 



/STORE AC AT CHK 
/GET COMPARE DATA 
/2*S COMPLEMENT IT 
/SET UP UNEQUAL FXIT 



/AOO C(WCHK) 

/EQUAL? 

/NO. 

/SET UP EQUAL 

/EQUAL EXIT. 

/RESTORE AC 

/UNEQUAL EXIT, 



EXIT, EQUAL 



MoVE=JMs M VVE 
.EJECT 
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1 C TTP 


00613 


000000 


00614 


100533 


00615 


000060 


00616 


003401 


30617 


777776 


00620 


100533 


00621 


000060 


00622 


003513 


00623 


777776 


00621 


100533 


00625 


000060 


00626 


003625 


00627 


777776 


00630 


620613 


00631 


000000 


0063? 


220631 


00633 


040636 


00634 


440631 


006 3 5 


1005 ? 3 


00636 


000000 


00637 


003403 


00640 


777775 


00641 


100533 


00642 


003403 


00643 


003406 


00644 


777673 


00645 


100533 


00646 


003403 


00647 


003515 


00650 


777670 


00.651 


620631 


0065? 


000000 


00653 


100533 


00654 


00151 6 


00655 


003403 


00656 


777701 


00657 


100533 


00660 


001516 


00661 


00350? 


00662 


777767 


00663 


100533 


00664 


00340 3 


00665 


00351 5 


00666 


777670 


00667 


6206 s ? 



/SET BUFFER aREa SUBROUTINE 



ST8F 



FBF3 



FBALL 





MOVE 

CR 

BLOCKA 

-2 

MOVE 

CR 

RLoCKB 

-2 

MOVE 

CR 

BLoCKC 

-2 

JMP« 



LAO 

OAC 

ISZ 

MOVE 



BLOCK1 
-3 

MOVE 

BLOCKl 

BL0CK1+3 

-105 

MOVE 

BLOCKl 

HL0CK2 

-110 

JMP» 



MOVE 

A 

RLOCKl 

-77 

MOVE 

A 

BLoCKi+77 

-11 

MOVE 

BLOCKl 

BL0CK2 

-110 

JMP« 

.EJECT 



STBF 

FBF3 
.+3 

FBF3 



FS^S 



/CRLF TO BLOCK A 



/crlf to block e 



/cr(_f to Block c 



/EXiT 

/FILL 144 CHARACTER BUFFER 
/WITH 3 CHARACTERS WHOSE 
/ADDRESS IS SPECIFIEO AT 

/CaLL+1 



/FILL 144 CHARACTER BUFFER 
/WITH ALL PRINTABLE ASCII 
/CHARACTERS. 



FBALL 
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i c ttp: 


^0670 


000000 


? a f! 7 1 


100533 


0067? 


P0(*P?1 


00673 


00 3 4!' 3 


1*0674 


777776 


08675 


100533 


00676 


003403 


00677 


0034(<<5 


00700 


77767? 


00701 


100533 


0070? 


003403 


00703 


003515 


00704 


777670 


00705 


620670 


00706 


000000 


00707 


100533 


00710 


001466 


007H 


003403 


00?^? 


777774 


00713 


100533 


00714 


003403 


00715 


003407 


00716 


777674 


00717 


100533 


00720 


003403 


00721 


003515 


0072? 


777670 


00723 


620706 


00724 


000000 


0072<5 


100533 


00726 


081472 


00727 


003403 


00730 


777770 


00731 


100533 


00732 


003403 


00733 


003413 


00734 


777700 


00735 


100533 


00736 


003403 


00737 


003515 


00740 


777670 


0074 1 


6207P4 



FBTMP 



FW334 



FW33S 





MOVE 

PTFMP 

etocKi 

-2 

MOVE 

BLOCK1 

PlOCKl+2 

-106 

MOVE 

BLOCK1 

8L0CK2 

-110 

JMP» 



MOvE 

A33WP4 

BLOCKl 

-4 

MOVE 

BLOCKl 

BLOCKi+4 

-104 

MOVE 

BLOCKl 

BLOCK2 

-110 

JMP« 



MOyE 

A33«PS 

BLOCKl 

-10 

MOVE 

PLOCK1 

BLoCKl+10 

-100 

MOVE 

BLOCKl 

BLOCK? 

-110 

JMP* 

.EJECT 



FBT-MP 



FW334 



/fill 144 character bufffr 
/with data in ptemp 

/AND PTEMPl. 



/FILL 144 CHARACTER Bu F FER 
/WITH 4 CHARACTER ASR33 
/WORST CASE PRINTER PATTERN 



/EXiT 

/FILL 144 CHARACTER BuFFER 
/WITH ASR33 WORST CASE 
/PATTERN WITH INTERSPERSED 
/BLANKS. 



FW33S 



/FX]T 



PAGF 



1^TTP2 



B074? 


P00000 


P0743 


100533 


007«« 


001502 


00745 


0034(83 


00746 


777774 


00747 


100533 


00750 


003403 


00751 


003407 


00752 


777674 


00753 


100533 


00754 


003403 


00755 


003515 


00756 


777670 


00757 


620742 


00760 


000000 


30761 


100533 


0076? 


001506 


00763 


003403 


00764 


777 770 


00765 


100533 


00766 


003403 


00767 


003413 


00770 


777700 


00771 


100533 


0077? 


003403 


00773 


003515 


00774 


777670 


00775 


620760 


A0776 


000000 


00777 


100322 


01000 


001007 


01001 


777672 


0100? 


201010 


01003 


100376 


01004 


441007 


01005 


601002 


01006 


6^776 


01007 


000000 


01010 


000376 


01011 


000000 


0101? 


100322 


01013 


001026 


01014 


7775S7 


01015 


101141 


01016 


75?001 


01017 


040063 


01020 


100322 


01021 


001064 


01022 


001027 


01023 


700322 


01024 


700042 


01025 


621011 


01026 


000300 



FW354 

MOVE 
A35HP4 
BLOCKl 
-4 

MOVE 
BLOCKl 
PL0CK1+4 
-104 
MOVE 
BLOCKl 
BL0CK2 
-110 

JMP* FW354 
FW35S 

M0 V E 

A35WPS 

BLOCKi 

-10 

MOVE 

BLOCKl 

RLOCKl*lfi 

-100 

MOVE 

BLOCKl 

RL0CK2 

-110 

JMP» FW35S 

/Punch lfaoer trailer subroutine 

PLTLR 

SETLOC 

LTRCTR 

-106 

LAC lDCDE 

JM S Pu^CH 

IS? LTRCTR 

JMP .-;» 

JMP» PLTLR 
LTRCTR 
LDCD E 376 

Rsync 

SETLOC 

RSCTR 

-221 

JmS rr^y 

CLAICMA 
DAC R9USY 
SETLOC 
VCTR 
RSSERV 
KRA 
ION 

JMP« RSYNC 
RSCTR 

.EJECT 



/FILL BUFFER U I TH ASR3 K 
/WORST CASF PATTERN. 



/EXjT 

/fill Buffer w ith ASR35 

/WORST CASE PATTERN WITH 
/INTFRSPFRSED BLANKS. 



/EXjT. 



/-70 TO LTRCTR 



/Punch 376 code 

/DONF? 

/NO. REPFAT. 

/YES. EXIT 



/SYNC READER SUBR0|JT' N E 
/-145 TO RSCTR 



/WAIT F R READER N fiT BUSY. 

/SET READER BUSY INOICATOR 
/SET READER SERVICE 
/ADDRESS. 

/START READ 
/ENABLE INTERRUPT 
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15TTP2 






»!0?7 


70C31? RSSeRV kRr 




01030 


70C3J- ? 


"• r t. 




?! 1 CI 3 1 


:?400*? 


Tad 


-^~Q> 


3103? 


750200 


S2a!CLA 




01033 


601042 


JMP 


. +7 


01034 


1*0063 


D2M 


R3USY 


01035 


754000 


CLaJCCL 




01036 


200064 


LAC 


LINK 


01037 


. 74001« 


RAL 




0104?! 


200065 


LAC 


AC 


01041 


620000 


JMP* 





(*1«42 


441026 


ISZ 


RSCTR 


01043 


601866 


JMP 


OUT 


01044 


750040 


HLT'CLA 




01045 


100322 


SETLOC 




01046 


001026 


RSCTR 




01047 


777557 


-221 




01050 


601066 


JMP 


OUT 


01051 


040065 INTSVC OAC 


AC 


01052 


740020 


RAR 




01053 


040064 


OAC 


LINK 


01054 


700401 


tsf 




01055 


601061 


JMP 


.+4 


01056 


700402 


Tcr 




01057 


140056 


OZM 


PFLAG 


01060 


601066 


JMP 


OUT 


01061 


700301 


KSF 




01062 


601065 


JMP 


.+3 


01063 


621064 


JMP» 


.♦1 


01064 


000000 VCTR 




01065 


740040 


HLT 




01066 


754000 OUT CLAiCLL 




01067 


200064 


LAC 


LINK 


01070 


740010 


PAL 




01071 


200065 


LAC 


AC 


01072 


700042 


ION 




01073 


620000 


JMP» 





01074 


000000 PSTUP 




01075 


100322 


SETLOC 




01076 


001140 


PADOR 




01077 


003 401 


BLOCKA 




01100 


100533 


MOVE 




01101 


000057 


PLKCNT 




0110? 


001 137 


PCTR 




01103 


777777 


-1 




011 04 


621074 


JMP« 


PSTUP 


01105 


000000 POCR 




01106 


221140 


LAC« 


PAPQR 


01107 


441140 


IS? 


P A ° 


01110 


10P376 


JMS 


PU\lCH 


01111 


621105 


JMP* 
.EJECT 


POCR 



/READ BUFFER. SELECT SFAOER. 

/ADD MINUS RUPOUT 

/RUBOUT? 

/NO. 

/CLEAR READER BUSY, 



/RESTORE LINK. 

/RESTORE AC, 

/TO MAINLINE. 

/145 CHARACTERS REAO? 

/NO. 

/YES. NO SYNC 

/-145 TO RSCTR 



/TO MAlNL'NE 
/SAVE AC 

/SAVE LINK 

/PUNCH/PRINTER? 

/NO. 

/YES. CLEAR FLAG 

/CLEAR PELAG. 

/READER? 
/NO. ERROR. 



/UNEXPECTED INTERRUPT 



/RESTORE LINK 
/RESTORE AC 
/ENABLE INTERRUPT 
/TO MAINLINE 
/PUNCH SET UP 
/SET DATA ADORESS 



/SET BLOCK LENGTH 



/EXjT 

/Punch data char Sub. 

/SET DATA 

/UPDATE DATA ADDRESS 

/PUNCH/PRINT DATA 

/EXIT 
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15TTP? 










0111? 


000000 


PBLK 







/PUNCH DATA BLOCK. FULL SPEED 


01113 


101074 




JMS 


PSTUP 


/QO PUNCH SET UP 


0-1114 


101105 




JMS 


pdcR 


/GO PUNCH CHARACTER 


01115 


441137 




Hi 


PCTR 


/ALL CHARACTERS PUNCHED? 


01116 


601114 




JMP 


.-2 


/NO. REPEAT 


01117 


621112 




JMP« 


PBLK 


/YES. EXIT. 


01120 


000000 


P9LKR 







/PUNCH DATA BLOCK. STALLS. 


(ill 121 


101074 




JMS 


PSTUP 


/DO PUNCH SETUP 


01122 


101273 




JMS 


DLcNTP 


/FILL DELAY et-OcK 


01123 


100322 




SET|_0C 




/DB L k ADDRESS To DAp 


01124 


001136 




OAp 






01125 


004001 




OBLK 






01126 


221136 




LAC» 


DAP 


/GET STALL COUNT 


01127 


040023 




OAC 


OELAYM 


/STORE AT OELAYM 


01130 


441136 




ISZ 


OAP 


/UPDATE DAP ADDRESS. 


01131 


100333 




DELAY 




/STALL. 


0113? 


101105 




JMS 


PDCR 


/GO PUNCH CH A RaCTE« 


01133 


441137 




ISH 


PCTR 


/All CHARACTERS PUCnCHEO? 


01134 


601126 




JMP 


.-6 


/NO. REPEAT. 


01135 


621120 




JMP, 


PBLKR 


/Y'S. EMT 


01136 


000000 


OAP 









01137 


000000 


PCTR 









01140 


000000 


PADDR 









01141 


000000 


RRDY 







/WAIT FOR READER NOT BUSY SUp 


01142 


200063 




LAC 


PBUSY 


/FETCH R BUSY 


01143 


750200 




SZa!CLA 




/BUSY? 


01144 


601142 




JMP 


.-2 


/YES. 


01145 


621141 




JMP* 


RRDY 


/NO. EXIT. 


01146 


000000 


RSTUP 


P 




/READER SETUP SUBROUTINE. 


01147 


101141 




JMS 


RRPY 


/WAIT FOR READER NOT BUSY, 


01150 


440063 




ISZ 


R8USY 


/SET READER BUSY. 


0II15I 


100322 




SETIOC 




/SET DATA ADDRESS. 


01152 


001204 




RADOR 






01153 


003401 




BLOCKA 






01154 


100533 




MOvE 




/SEj BLOCK LENGTH 


01155 


000057 




RLKCNT 






01156 


001205 




RBCTR 






01157 


777777 




-1 






01160 


140054 




DZ M 


FrrCTR 


/C L EAR ERROR CoUnTER. 


01161 


621146 




JMP» 


RSTUP 


/EXIT 


01162 


000000 


RORLK 







/READ DATA BLOCK. FULL SPEED. 


01163 


101146 




JMS 


flSTUP 


/OO READF.R SET UP 


01164 


100322 




SETLOC 




/SET READER SERVICE ADDRESS 


0116«i 


001 064 




VCTR 




/TO ROSRV 


01166 


00121? 




ROSRV 






01167 


70004? 




ION 




/ENABLE INTERRUPT. 


01170 


62116? 




JMP. 
.EJECT 


RDPLK 


/EXIT 
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l'iTTO? 










ail 71 


000000 


"DPLKR 







/READ DATA BLOCK. STALLS. 


0117? 


1011*6 




JMS 


B C T (J p 


/DO READER SETUP 


01173 


100322 




SETLOc 




/SET READER SrRVlcr *nn«ESS 


<*1174 


001064 




VCTR 




/TO RDRSRV. 


C1 1 75 


' 001206 




RDRSRV 






01176 


100322 




s e t loc 




/S^T DELAY BLOCK ADOREss- 


01177 


001203 




OAR 






31200 


004003 




OBLK 






01201 


700842 




ION 




/ENABLE INTERRUPT. 


01202 


621171 




JMP, 


RD9LKR 


/EXIT. 


01203 


000000 


OAR 









01204 


000000 


RADDR 









01205 


000000 


RBCTR 









0120* 


22,12.03 


RORSRV 


LAC. 


OAR 


/GET STALL COUNT 


01207 


040026 




DAC 


DELAYS 


/STORE AT DELAYS 


01210 


441203 




ISZ 


OAR 


/UPDATE OAR, 


01211 


101254 




JMS 


OLMSR 


/STALL 


0121? 


221284 


ROSRV 


lAC» 


Raoor 


/GET EXPECTED D*T A 


01213 


041220 




DAC 


SB 


/STORE AT SB 


01214 


441204 




is? 


RAOOR 


/update expected oaTa addr. 


01215 


700312 




KRB 




/READ CHARACTER, SELECT READER 


H1216 


700322 




KR4 






01217 


100575 




JMS . 


CHCK 


/TO CHECK IT. 


01220 


000000 


SB 









01221 


601223 




JMP 


ERROR 


/ERROR. 


01222 


601240 




JMP 


RUDONE 


/OK. 


ai?23 


040053 


ERROR 


DAC 


ERRCR 


/STORE BAD CHARACTER. 


01224 


440054 




ISZ 


ERRCTR 


/♦I TO ERROR COUNTER 


01225 


601230 




JMP 


. +? 




01226 


750001 




CLA'CMA 




/OFLO. 


01227 


040054 




DAC 


ERRCTR 


/RESTORE ERRCTR TO 7777. 


01230 


750004 




LAS 




/REAO SWITCHES 


fl?31 


500052 




AND 


SR^MSK 




01232 


751200 




SNAiCLA 




/HALT ON ERR0R7UCS3) 


01233 


601240 




JMP 


RUDONE 


/NO. 


01234 


200053 




LAC 


ERRCR 


/YES. GET BAD CHARACTER 


*U735 


740040 




HLT 




/ERROR HALT. BAo CHAP ]N| A c . 


■'1236 


201220 




LAC 


se 




01237 


740040 




HLT 




/GOOD CHARACTER IN AC. 


01240 


441205 


RUDONE 


IS? 


R9CTR 


/ALL DONE? 


.M24J 


6010*6 ■ 




JMP 


r- u t ■ 


/NO. TO MAINLINE 


01242 


20005* 




Lac 


F^RCTR 


/YES. GET ERROR COUNT. 


01243 


741200 




SNA 




/ANY ERRORS? 


01244 


741000 




SKP 




/NO. 


01245 


7 4 04 




HLT 




/halt, error Count in ac. 


*1246 


75400? 




CLA'CLL 






01247 


140063 




OHM 


R8USY 


/CLEAR READER BUSY. 


0i?5P 


200064 




LAC 


LINK 




''1251 


74001 




RAL 




/RESTORE LINK 


0125? 


2041065 




LAC 


AC 


/RESTORE AC 


01253 


620000 




JMP* 
.EJECT 





/TO MAINLINE 



D AGE 16 


15TT- 


1254 


?00000 


iM?^ 


?0C*0?6 


01256 


041271 


t 'l?57 


6212*0 


01260 


001261 


01261 


200041 


01262 


041272 


01263 


441272 


01264 


601263 


01265 


441271 


01266 


601257 


01267 


754000 


01270 


621254 


01271 


000000 


01272 


0000P0 


01273 


000000 


01274 


100533 


12 75 


000057 


01276 


001317 


01277 


777777 


01300 


100322 


01301 


001316 


01302 


004001 


01303 


100411 


01304 


500055 


01305 


741200 


01306 


601303 


01307 


740001 


01310 


340071 


.01311 


061316 


01312 


441316 


01313 


441317 


01314 


601303 


0131 5 


621273 


01316 


000000 


01317 


000000 


01320 


000000 


01321 


75P001 


01322 


1003/6 


P1323 


6213?0 



DLMSR 





L ar 


m* v s 




DAC 


RCTRt 




JMP« 


. +1 




.♦1 






LAC 


MlLl 




DAC 


RCTRB 




ISZ 


RCTRB 




JMP 


.-1 




ISH 


RCTRA 




JMP 


.-7 




CLAjCLL 






JMP. 


0L"SR 


RCTRA 







RCTRB 







OLCNTP 




MOVE 

BLKCNT 

DCTR 

-1 

SETLOC 

OAODR 

OBLK 




GNRND 


JMS 


RANGEN 




AND 


DL Y MSK 




SN* 






JMP 


GN&ND 




CMA 






TAD 


Kl 




DAC* 


DAOOR 




IS? 


DAHOR 




IS? 


DCTR 




JMP 


GNRNO 




JMP« 


OLCNTP 


DAOOR 







nCTR 







ps* n c 



CLA'CMA 






JMS 


PUNCH 




JMP, 


PSVNT 




.EJECT 





/REAOER r.ELA'' 
/SUBROUTINE 



/SUB TO FILL DELAY BLOCK, 
/SET BLOCK LENGTH. 



/[BLK *ODR TO OAODR 



/GET RANDOM NUMBER. 
/REMOVE EXCESS BITS 

/0? 

/YES. GET ANOTHER NUMBER, 

/2'S COMPLEMENT IT 

/STORE ]N DELAY BloCk. 

/U p DAtA DELAY ADDRESS 

/DONE? 

/NO. 

/YES. EXIT. 
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IsTtp; 


01324 


C!0?Z30 


01325 


140063 


01326 


221324 


Hl3?7 


041332 


01330 


100776 


01331 


101320 


01332 


(500000 


01333 


181811 


01334 


101162 


0133$ 


100776 


01336 


101141 


01337 


600260 


01340 


000000 


01341 


140063 


0134? 


221340 


01343 


041347 


01344 


041352 


01345 


100776 


01346 


101320 


01347 


000000 


01350 


101011 


01351 


101162 


013 5 2 


000000 


01353 


601351 


01354 


000000 


01355 


140063 


01356 


100776 


0l3 5 7 


1013?B 


01360 


101112 


01361 


101011 


0136? 


101171 


01363 


101120 


01364 


101162 


0136S 


100776 


01366 


101141 


01367 


600260 



/c:)nCH 


TEST NOP^AL TEST SEQUENCE 


NTST 









D2-"! 


P-MSY 




LAC» 


NTST 




DAC 


ntsta 




JMS 


pltlr 




jMS 


PSYNC 


ntstA 









JMS 


RSYNC 




JMS 


RDBLK 




JMS 


PLTLR 




JMS 


RRDY 




JMP 


chain 


/PUNCH 


TESTS SPECIAL TEST SEqUEN 


STST 









DZM 


RBUSY 




LAC» 


STST 




OAC 


STSTA 




PAC 


STSTc 




JMS 


PLTLR 




JMS 


PSyNC 


STSTA 









JMS 


RSYNC 


STSTB 


JMS 


RORLK 


STSTC 









JMP 


STSTb 


/COMBINED TEST 


NORMAL TEST SEQUE 


CNTST 









DZM 


RBUSY 




JMS 


PLTLR 




JMS 


PSYNC 




JMS 


pblk 




JMS 


RSYNC 




JMS 


ROBLKR 




JMS 


PBLKR 




JMS 


RDBLK 




JMS 


PLTLR 




JMS 


RRDY 




JMP 


CHAIN 




.EJECT 





/clear reader busy 
/select punch mode 

/punch leader 

/punc h sync c h aracter 

/Punch data block 

/sync header 

/read data. slock 

/punch trailer 

/h a it for re4der not b usy 

/CHAIN 



/CLEAR READER BUSY 
/SELECT PUNCH MODE 



/punch leader 
/Punch sync character 
/punch data rlock 
/sync reader 
/read oata block 
/punch data block 

/GO R£aD aGaIN 



/CLEAR READER BUSY. 

/PUNCH LEADER 

/PUNCH SYNC CHARACTER 

/PUNCH o* TA 8L°CK <NO STALLS) 

/SYNC READER 

/READ DATA BLOCK (STALLS) 
/PUNCH OATA RLOCK (STALLS) 
/READ DATA BLOCK (NO STaLD 

/punch trailer 

/wait for reaoer not busy. 

/CHAIN. 



page is 



r TP? 



01370 


000000 


01371 


140023 


01372 


221370 


01373 


041376 


01374 


441370 


01375 


100631 


0137* 


000000 


01377 


101401 


01400 


621370 


01401 


000000 


01402 


100322 


01403 


00 1 4? 2 


01404 


777664 


01405 


100322 


01406 


001421 


01407 


003401 


01410 


200023 


01411 


740200 


01412 


100333 


01413 


221421 


01414 


1003 76 


01415 


441421 


01416 


441422 


01417 


601410 


01420 


621401 


01421 


000000 


0142? 


000000 


01423 


000000 


01424 


221423 


01425 


041460 


01426 


441423 


01427 


221423 


01430 


041461 


01431 


441423 


0143? 


201463 


01433 


521460 


01434 


746020 


0143^ 


74?0?f» 


01436 


742030 


01437 


1014 46 


01440 


441461 


01441 


201463 


01442 


740001 


01443 


52146?i 


01444 


101446 


01445 


6214?3 



/TYPE 

typln; 



LINE OF 3 CHARACTERS (NO DELAY) 



/TYPE 

TYPE 



TYPEA 



FETCH 

TCTR 
ASCCN 



D2M 
LAC* 
DAC 
1S2 
JMS 


JMS 
JMP* 
LINE OF A 


SETLOC 
TCTR 
-114 

SET|_0C 

FEtCH 

BLOCKA 

LAC 

SZA 

DELAY 

LAC* 

JMS 

ISH 

IS? 

JMP 

JMP» 







LAC* 

OAC 

ISZ 

LAC« 

DAC 

IS? 

LAC 

and* 

RTR!CLL 

RTR 

RTR 

JMS 

IS? 

LAC 

CMA 

AND* 

JMS 

JMP. 

.EJECT 



OELAYM 

TYPLN3 

.+3 

TYPLN3 

FBF3 

TYPE 
TYPLN3 
Sell PRINTABLE 



"/CLEAR DELaYH 

/GET AND STORE OaTa ADDRESS. 



/go fill buffer with data 



DELAYM 



FETCH 

PUNCH 

FETCH 

TCTR 

TYPEA 

TYPE 



ASCCN 

WASC 

ASCCN 

ASCCN 

SASC 

ASCCN 

K7700 

WASC 



CNV 

SASC 

K7700 

WASC 

CNV 

ASCCN 



/TYPE LINE Of OATA 
/EXIT. 
CHARACTERS 

/-76 TO TCTR 



/DATA ADDRESS Tq FETCH. 



/STALL? 

/YES. 

/GET CHARACTER 

/PRINT IT 

/UPDATE DATA ADDpESS 

/DONE? 

/NO. REPEAT. 

/YES. EXIT 
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15TTP? 










a.l 4 4 6 


00P000 


CNV 









^1447 


041 462 




DAC 


ASCT 




t'14 5(> 


742010 




RTl 






014S1 


740010 




RAL 






01452 


501464 




A N 


"0707 




01453 


341462 




TAO 


»SCT 




01454 


501464 




ANO 


K0707 




01455 


341465 




TAD 


K606P 




01456 


061461 




OAC» 


SASC 




01457 


62144J6 




JMP» 


CNV 




01460 


000000 


HASC 









01461 


000000 


SASC 









01462 


000000 


ASCT 









01463 


007700 


K7700 


7700 






01464 


000707 


K0707 


0707 






01465 


006060 


K6060 


6060 






01466 


000247 


A33WP4 


247 




/' 


01467 


000337 




337 




/LEFT ARROW 


01470 


000327 




327 




/W 


01471 


000257 




257 




// 


0147? 


000247 


A33HPS 


247 




/' 


01473 


000240 




240 




/SP 


01474 


000337 




337 




/l_E F T ARROW 


01475 


000240 




240 




/s p 


01476 


000327 




327 




/W 


01477 


000240 




240 




/SP 


01500 


000257 




257 




// 


01501 


000240 




240 




/SP 


01502 


000247 


A35HP4 


247 




/ ' 


01503 


000333 




333 




/( 


01504 


000277 




277 




/? 


01505 


000303 




303 




/C 


01506 


000247 


A35WPS 


247 




/• 


01507 


000240 




240 




/SP 


01510 


000333 




333 




/C 


01511 


000240 




240 




/SP 


01512 


000277 




277 




/? 


01513 


000240 




240 




/SP 


01514 


000303 




303 




/C 


0151'? 


00P240 




240 




/SP 


01516 


000301 


A 


301 






01517 


000302 




302 






01520 


000303 




303 






01521 


000304 


n 


304 






01522 


000305 




305 






01523 


000306 




306 






01524 


000307 


G 


307 






01525 


000310 




310 






01526 


000311 




311 

.EJECT 
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15TTP2 


01527 


000312 


01530 


00031 3 


01531 


000314 


0153? 


000315 


01533 


000316 


0153-4 


000317 


01535 


000320 


01536 


000321 


01537 


000322 


01540 


000323 


01541 


000324 


01542 


000325 


01543 


000326. 


01544 


000327 


01545 


000330 


01546 


000331 


01547 


000332 


01550 


000260 


01551 


000261 


01552 


000262 


01553 


000263 


01554 


000264 


01555 


000265 


01556 


000266 


01557 


000267 


01560 


000270 


01561 


000271 


01562 


000241 


01563 


000242 


01564 


000243 


01565 


000244 


01566 


000245 


01567 


000246 


01570 


000247 


01571 


000250 


01572 


000251 


0157;* 


000252 


01574 


000253 


!*i«;75 


000254 


1*1576 


000255 


01577 


000256 


1*160? 


000257 


?1601 


00027? 


P5602 


000273 


01603 


000274 


^1604 


000?75 


01605 


00P276 


01606 


000277 


tSl607 


P0P3P0 


01610 


000.33 3 


01611 


000334 



J 


311 




313 




314 


M 


315 




316 




317 


P 


320 




321 




322 


S 


^23 




324 




325 


V 


^26 




327 




7 30 


Y 


331 




332 




260 


ONE 


261 




262 




263 


tour 


264 




265 




266 


SEVEN 


26? 




?7V 




27T 


C241 


241 




242 




243 


C244 


244 




245 




246 


C247 


247 




250 




251 


C252 


252 




253 




254 


C255 


. 255 




256 




25 7 


C272 


272 




273 




274 


C275 


275 




276 




277 


C300 


30 




33^ 




334 




.EJE 
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15TTP2 


3161? 


000335 


a l613 


000336 


01614 


000337 


f 1615 


000001 


01*16 


000002 


01617 


000004 


01620 


000010 


0.1621 


000020 


01622 


000040 


01623 


000100 


*»1624 • 


000200 


01625 


000100 


01626 


000040 


01627 


000020 


01630 


000010 


01631 


000004 


01632 


000002 


016.33 


000376 


01634 


000375 


01635 


000373 


01636 


000367 


01637 


000357 


01640 


000337 


01641 


000277 


81642 


000177 


01643 


000277 


01644 


000337 


01645 


000357 


01646 


000367 


01647 


000373 


01650 


000375 


01651 


004003 


01652 


002240 


01653 


002405 


01654 


002324 


01655 


000001 


01656 


004022 


01657 


001107 


01660 


001024 


01661 


004015 


01662 


000122 


01663 


000711 


01664 


001640 


01665 


002405 


01666 


002324 


01667 


000001 



335 



SLIol 



SLJO0 



CRTST 



RMTST 



7 35 




336 




?37 




1 




? 




a 




10 




20 




40 




1'00 




200 




109 




40 




20 




10 




4 




2 




376 




375 




373 




367 




357 




337 




277 




177 




277 




337 




357 




367 




373 




375 




4003 


/SP. C 


2240 


/R.SP 


2405 


/T.E 


2324 


/S.T 


0001 


/end code 


4022 


/SP.R 


1107 


/I.G 


1024 


/H,T 


4015 


/SP,M 


0122 


/A.R 


0711 


/C. I 


1640 


/N.SP 


2405 


/T.E 


2324 


/S.T 


0001 


/ENO CODE 


.EJECT 
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l^TTP 


01670 


004023 


01671 


002001 


0167? 


000305 


01673 


004024 


01674 


000523 


01675 


002400 


01676 


000100 


01677 


004814 


01700 


000640 


01701 


002405 


0170? 


002324 


01703 


000001 


01704 


004003 


01705 


001001 


01786 


002201 


01707 


00032* 


01710 


000522 


01711 


004024 


01712 


000523 


01713 


00?4?3 


01714 


000001 


01715 


0040?7 


01716 


003 7?? 


01717 


002324 


01720 


004003 


01721 


000123 


01722 


000540 


01723 


002001 


01724 


002424 


01725 


000522 


01726 


001640 


01727 


002405 


01730 


00?32« 


01731 


000015 


01732 


000012 


01733 


000001 


0173< 


000015 


"173=; 


000012 


01736 


004001 


01737 


002322 


01740 


006363 


01741 


00^763 


01742 


0065*:? 


01743 


0013?! 


01744 


000204 


01745 


004024 


01746 


000523 


01747 


002400 


01750 


001500 


01751 


001200 


01752 


000100 



SPTST 



LTTST 



CHRTST 



WCPTST 



KMSGl 



4023 


/SP.S 


2001 


/P. A 


0305 


/C,£ 


4024 


/SP.T 


0523 


/E.S 


2400 


/t 


0100 


/end cqoe 


4014 


/sp.l 


0640 


/F.SP 


2405 


/t.e 


2324 


/S,T 


0001 


/END COOE 


4003 


/SP,C 


1001 


/H,A 


2201 


/R.A 


0324 


/CT 


0522 


/E.R 


4024 


/SP,T 


0523 


/E.S 


2423 


/T.S 


0001 


/ENO CODE 


4027 


/SP.W 


1722 


/O.R 


2324 


/S,T 


4003 ' 


/SP.C 


0123 


/A.S 


0540 


/E.SP 


2001 


/P. A 


2424 


/T.T 


0522 


/E.R 


1640 


/N.SP 


2405 


/T.E 


2324 


/S,T 


0015 


/CR 


0012 


/LP 


0001 


/END CODE 


0015 


/CR 


0012 


/LF 


4001 


/SP.A 


2322 


/S.R 


6363 


/3.3 


5763 


/1.3 


6540 


/5.SP 


1331 


/ K .Y 


0204 


/8.D 


4024 


/SP.T 


0523 


/E,S 


2400 


/T 


1500 


/CR 


1200 


/LF 


0100 


/ENO CODE 


.EJECT 





pAGF ?3 



15TTP2 



K1753 
! / 1 7 5 4 
HJ755 
01756 
01757 
01760 
(91761 
01762 
01763 
01764 
01765 
01766 
01767 
01770 
01771 
0177? 
01773 
01774 
01775 
01776 
01777 
02000 
02001 
02002 
02003 
02004 
02005 
02006 
02007 
02010 
02011 
02012 
("2013 

02014 

021*15 
02016 
02017 
02020 

02021 
02022 
02023 
02024 
02B25 
02026 
02027 



00P015 
00001 ? 
004020 
002205 
002323 
004001 
004013 
000531' 
005600 
001500 
001200 
000100 
000015 
000012 
004005 
000310 
("01740 
002405 
002324 

000015 
000012 
004003 
001001 
002201 
000324 
000522 
002340 
001305 
003105 
000440 
002711 
001414 
004002 
000540 
002431 
002005 
000456 
000015 
.000012 

00402? 
002502 
001725 
002440 
000516 
000423 



/K^SG2. Type: PRESS a KEY 
K1SG2 



KMSG3 



KMSG3A 



001.5 


/CR 


tV * 2 


/LF 


4??e 


/SP.P 


2205 


/RfE 


2323 


/S.S 


4001 


/SP.A 


4013 


/SP.K 


0531 


/E»Y 


5600 


/. 


1500 


/CR 


1200 


/LF 


0100 


/END CODE 


0015 


/CR 


0012 


/LF 


4005 


/SP.E 


0310 


/C.H 


1740 


/O.SP 


2405 


/T.E 


2324 


/S.T 


0015 


/CR 


0012 


/LF 


4093 


/SP,C 


1001 


/H,A 


2201 


/R.A 


0324 


/C.T 


0522 


/E,R 


2340 


/S.P 


1305 


/K,E 


3135 


/Y.E 


0440 


/D.sP 


2711 


/W.I 


1414 


/L.L 


4002 


/SP.B 


0540 


/E.SP 


2431 


/T.Y 


2005 


/P.E 


0456 


/O,. 


0015 


/CR 


0012 


/LF 


4022 


/SP.R 


2502 


/U,B 


1725 


/O.U 


2440 


/T,SP 


0516 


/E.N 


0423 


/O.S 


.EJECT 
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15TTP? 






02030 


0?4022 


4022 


/SP.R 


«2 c, 3t 


0017?5 


1725 


/O.U 


0203? 


0024-i: 


2411 


/T, I 


02033 


001605 


1605 


/N»E 


02034 


005600 


5600 


/. 


02035 


001500 


1500 


/CR 


02036 


001200 


1200 


/LF 


0203? 


001500 


1500 


/CR 


02040 


001200 


1200 


/LF 


02041 


000100 


0100 


/END CODE 


02042 


00K015 KMSG4 0015 


/CR 


02043 


000012 


0012 


/LF 


02044 


000012 


0012 


/LF 


02045 


004017 


4017 


/SP,0 


02046 


000324 


0324 


/C.T 


02047 


000114 


0114 


/A.L 


02050 


004005 


4005 


/SP.E 


02051 


002125 


2125 


/Q.U 


0205? 


001126 


1126 


/I.V 


02053 


000114 


0114 


/A.L 


02054 


000516 


0516 


/E.N 


02055 


002440 


2440 


/T.SP 


02056 


002405 


2405 


/T.E 


02057 


002324 


2324 


/S.T 


02060 


000015 


0015 


/CR 


02061 


000001 


0001 


/END CODE 


02062 


000015 KMSG5 0015 


/CR 


02063 


000012 


0012 


/LF 


02064 


004040 OCTEOV 4040 




02065 


00 4 4 


4040 




02066 


000015 


0015 


/CR 


02067 


00001? 


0012 


/LF 


02070 


000001 


0001 
.EJECT 


/END CODE 
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i5ttp; 


.*207l 


100613 


0207? 


10032? 


05P73 


00ri0?0 


i-?0 7 4 


002076 


->?275 


60(???3 


02076 


000000 


02377 


082131 


02100 


100361 


02101 


777776 


021a? 


100451 


02103 


0Bj65l 


02104 


100361 


02105 


777776 


02186 


700870 


02187 


100376 


02110 


200877 


02111 


040845 


0211? 


440045 


02113 


7410P0 


02114 


600260 


02115 


20004 5 


0211ft 


040046 


2 117 


^00066 


02120 


100376 


02121 


440046 


02122 


602117 


02123 


?00060 


02124 


100376 


02125 


100376 


02126 


200067 


02127 


108376 


0213P 


632112 



PRG0 JMS 

SETLOC 
KSTART 
P0TS0 
JMP 

/CARRIAGE RETUR 

P0TS0 

P0TS1 

JMS 

-2 

JMS 

CRTST 

JMS 

-2 

LAC 

JMS 

LAC 

DAC 
CRTSTA ISZ 

SKP 

JMP 
CRTSTB LAC 

OAC 

LAC 

JMS 

ISZ 

JMP 

LAC 

JMS 

JMS 

LAC 

JMS 

JMp 

.EJECT 



cT„r 



5RSE T 
N TEST 



CftLF 
TYPSTG 

CRlF 

C334 
PUNCH 
Mill 
UTrHP 

utemp 

CHAIN 

UTEMP 

UTFMPl 

SPACE 

PUNCH 

UTEMP1 

.-3 

CR 

PUNCH 

PUNtC" 

C257 

PUVCh 

CRTSTA 



/SET UP SUFFER AREA 
/INITIAL ROUTINE ADDRESS 
/TO KSTaRT 

/GO GET STaRTEO 



/CRLF 

/TWICE 

/PRINT TEST TITLE 

/CRLF 

/TWICE 

/GET "\" COOE 

/PRINT IT 

/-73 TO UTEMP 

/ALL DONF? 

/NO. 

/YES. CHAIN 

/C<UTEMP) TO UTEMPi. 

/SET "SPACE" COOE 

/PRINT IT. 

/SPACED PER C(UTEMPl)? 

/NO. s p ACE AGAIN. 

/YES. GET "CR" CODE 

/PRINT IT 

/DUMMY CYCLE. 

/GET "/" CODE 

/PRINT IT 



PAGE ?6 


15TTP? 


«131 


000001 


0213? 


002163 


02133 


100361 


02134 


777776 


02135 


100451 


02136 


001656 


02137 


100361 


02140 


777776 


02141 


200074 


0214? 


040045 


02143 


100451 


02144 


002146 


02145 


602152 


02146 


005555 


02147 


005555 


02150 


001 100 


02151 


000100 


P2152 


440045 


02153 


602143 


02154 


100451 


02155 


002157 


02156 


602162 


02157 


005511 


02160 


005500 


02161 


000100 


02162 


600260 



/RIGHT «A*r,IN test 
P0TS1 



RMTSTa 



°0TS? 

J »"? 

-2 

JMS 

CMTST 

JMS 

-2 

la; 

OAC 
JMS 
.♦? 

JMP 

?555 

c 555 

1108 

0130 

IS? 

U KP 

JMS 

. ♦? 

JHP 

5511 

55«e 

0100 

JMP 
.EJECT 



CRLF 

TYPSTG 

CRLF 

Mj.6. 

UTEMP 

TYPSTG 

. +5 



UTEMP 

RMtsTA 

TYPSTG 

. +4 



Chain 



/CRLF 
/TWICE 
/PRINT TEST 



TITLE 



/CRLF 

/TWICE 

/-14 TO UTEMP 

/PRINT " !' 



/oone 14 t;mes? 

/"O. PEPEAy 
/>iS. PRINT "-!• 



/CHAIN 
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l^TTP? 


/SPACE TEST 






l'2163 


PI0H0F2 


P0TS2 ? 






"2164 


002230 


P0TS3 






/2165 


100361 


JMS 


CRLF 


/CRLF 


02166 


777776 


-2 




/TWICE 


02167 


10045]. 


JMS 


TYPSTG 


/PRINT TEST TITLE 


021 78 


001670 


SPTST 






02171 


100361 


JMS 


CRLF 


/CRtr 


02172 


777776 


-2 




/TWICE 


02173 


200075 


LAC 


M44 


. /-36 TO UTEMP 


02174 


040045 : 


OAC 


UTEMP 




02175 


100451 


SPTSTA JMS 


TYPSTG 


/PRINT\,SP 


82176 


002200 


.♦2 






02177 


6022.02 


JMP 


.♦3 




02200 


003440 


3440 




/"\».SP 


(82201 


000001 


0001 




/EN0 CODE 


B2205 


440045 


IS2 


UTEMP 


/DONE 36 TIMES? 


02203 


602175 


JMP 


SPTSTA 


/NO. 00 IT AGAIN 


02204 


200075 


LAC 


M44 




02205 


040045 


OAC 


UTEMP 


/-36 TO UTEMP 


02206 


200072 


LAC 


Ml 


/GET -l 


02207 


040046 


SPTSTB OAC 


UTEMPl 


/AC TO UTEMPl 


02210 


040047 


DAC 


UTEMP2 


/AND UTEWP2 


02211 


200060 


LAC 


CH 


/GET "CR" CODE 


02212 


100376 


JMS 


PUNCH 


/PRINT IT 


02213 


100376 


JMS 


PUNCH 


/DUMMY CYCLE 


02214 


200066 


lac 


SPACE 


/GET "SP A CE" CODE 


02215 


100376 


JMS 


PUNCh 


/PRINT IT 


02216 


440047 


1SH 


UTEMP2 


/DONE SPACING? 


02217 


602214 


JMP 


.-3 


/NO. REPEAT. 


02220 


200067 


LAC 


C257 


/YES. GET •«l»COOE 


02221 


100376 


JMS 


PUNCH 


/PRINT IT 


?2222 


440045 


IS? 


UTFMP 


/OONE 36 TIMES? 


i»2223 


741000 


SKP 




/NO, 


02224 


600260 


JMP 


Ch*in 


/yEs. c h ain 


02225 


200073 


LAC 


M2 


/-2 TO AC 


P??26 


340046 


TAO 


UTFMPl 


/ADD C(UTEMPi) 


02227 


602207 


JMP 
.EJECT 


SPTSTB 





PA^E 



l^TTP? 



0?23? 


000003 


02231 


0022="» 


02232 


100361 


02233 


777776 


02234 


180451 


02235 


03167 7 


02236 


100361 


02237 


777776 


02240 


208076 


02241 


040045 


02242 


200070 


02243 


100376 


02244 


200061 


02245 


100376 


02246 


440045 


02247 


741000 


02250 


600260 


02251 


100350 


02252 


10*333 


02253 


602242 



/LINE FEED TEST 
P0TS3 3 



LFTSTA 



P0TS4 




JMS 


C«LF 


-2 




JMS 


TYFST 


LFTST 




JMS 


CRLF 


-2 




LAC 


M119 


DAC 


UTfMP 


LAC 


C334 


JMS 


PUNCH 


LAC 


LF 


JMS 


PLINTH 


IS? 


UTFMP 


SKP 




JMP 


CHAIN 


JMS 


DLCNT 


DELAY 




JMP 


LFTST 



/-72 T° UTEMP 

/GET "\" CODE 

/PRINT IT 

/GET "LF" CODE 

/PRINT IT 

/DONE? 

/NO. 

/YES. CHAIN 

/DFLAY COUNT GENERATE. 

/CFLAY . 



.EJECT 
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1-TTP; 


02254 


£»0??lf 4 


^2 25^ 


t»0?267 


"-52T/S 


100361 


P2257 


777776 


02260 


103451 


02261 


001704 


02262 


100361 


02263 


777776 


02264 


101370 


02265 


00l5i6 


02266 


600260 


02267 


000005 


02270 


002274 


02271 


101370 


02272 


001521 


02273 


600260 


02274 


000006 


02275 


002301 


02276 


101370 


02277 


001524 


02300 


600260 


02301 


000007 


02302 


002306 


02303 


101370 


02304 


001527 


02305 


600260 


02306 


000010 


02307 


002313 


02310 


101370 


02311 


001532 


02312 


600260 


02313 


000011 


02314 


002320 


02315 


101370 


02316 


001535 


02317 


600260 


02320 


000012 


02321 


002325 


02322 


101370 


02323 


001540 


02324 


600260 


02325 


000013 


02326 


002332 


02327 


101.370 


02330 


001543 


02331 


600260 


02332 


00001 4 


02333 


002337 


142334 


101370 


02335 


001546 


02336 


60142*0 



P0TS4 



P0TS5 



P0TS6 



P0TS7 



P0TS10 



P0TS11 



P0TS12 



P0TS13 



P0TS14 



A 

P0TS5 

JMS 

-2 

JMS 

CHRTST 

JMS 

-2 

JMS 

A 

JMp 

5 

P0TS6 

JMS 

D 

JMp 

6 

P0TS7 

JMS 

G 

JMP 

7 

P0TS10 

JMS 

J 

JMP 

10 

P0TS11 

JMS 

M 

JMP 

11 

P0TS12 

JMS 

P 

JMP 

12 

P0TS13 
JMS 
S 

JM P 

13 

P0TS14 

JMS 

V 

JMP 

14 

P0TS15 

JMS 

Y 

JMP 

.EJETT 



TYPSTG 
CRLF 
TYPLN3 
CHAI N 

TYPLN3 
CHAIN 

TYPLN3 
CHAIN 

TYPIN3 
CHAIN 

TYPLN3 
CHAIN 

TYPLN3 
CHAIN 

TYPLN3 
CHAIN 

TYPLN3 
CHAIN 

TYPLN3 
CHAIN 



/C«LF 

/TMCE 

/PRINT TITLE 

/CRLF 

/TWICE 

/PRINT LINE OF ABC 

/CHAIn 

/PRINT LINE OF DEF 



/PRINT LINE OF GHI 



/PRINT LINE OF JKL 



/PRINT LINE OF MNO 



/PRINT LINE OF POR 



/PRINT LINE OF STU 



/PRINT LINE OF VWX 



/PRINT LINE OF YH0 



l c TT p ? 



£ 2 . 7 ? " 


?00015 


0234i> 


002344 


0234 1 


101370 


02342 


001551 


02343 


600260 


02344 


000016 


023*5 


002351 


02346 


iei370 


02347 


001554 


02350 


600260 


02351 


0000J7 


0235? 


002356 


02353 


101370 


02354 


001557 


02355 


600260 


02356 


00C020 


02357 


002363 


02360 


101370 


02361 


001562 


02362 


600260 


02363 


000021 


02364 


002370 


02365 


101370 


02366 


001565 


0536"" 


600260 


0?37p 


000022 


02371 


002375 


02372 


10.1370 


02373 


0015 70 


0?374 


60i*260 


02375 


0000? 3 


237* 


00240? 


02377 


101370 


0240P 


001573 


02401 


600260 


0240? 


0000?4 


2*03 


P ? 4 p 7 


02*04 


101370 


024*5 


001576 


02406 


600260 


0?4P7 


9 5 


i*24i? 


00241 4 


024H 


1 01 37i* 


02*1? 


001601 


5413 


60 26 


i' ? 4 i 4 


000026 


02*15 


2 4 21 


02*16 


101370 


2 * 1 ? 


001 604 


■ '?*20 


6 2 6 



P0TS15 


15 
P0TS16 






JMS 


TVPUK'3 




ONE 






JMP 


CHi !!v 


P0TS16 


16 
P0TS17 






JMS 


"P L K3 




FOUR 






JMP 


CHAIN 


P0TS17 


17 

P0TS20 






JMS 


typln3 




SEVEN 






JMP 


CM l\ 


P0TS20 


20 
P0TS21 






JMS 


TYPLN3 




C241 






JMp 


CH»I* 


P0TS21 


21 
P0TS22 






JMS 


TYPLK-3 




C244 






JMP 


CHAIN 


P0TS22 


22 
P0TS23 






JMS 


TYPLN3 




C247 






JMp 


CHi IN 


P0TS23 


23 

P0TS24 






JMS 


TYPLN3 




C252 






JMp 


CHAIN 


P0TS24 


24 

P0TS25 






JMS 


T VC LN? 




C255 






JM D 


CH4JN 


P0TS25 


25 
P0TS26 






JMS 


TY^LNS 




C272 






JMp 


CHAIN 


P0TS26 


26 

P0TS27 






JMS 


TYPLN3 




C275 






JMp 


CHAIN 




.EJECT 





/PMNT LINE OF 123 



/PRINT LINE Or 456 



/PRINT LINE OE 789 



/PRINT LINE OF!"# 



/PRINT LINE OE %%& 



/PRINT LINE OF'O 



/PRINT LINE OE „+. 



/PRINT LINE OF" -. 



/PRINT LINE OE : ;< 



/PRINT LINE OE zyl 



PAGE 31 



1^TT D ? 



*"242t 
C?4?9 
2423 
02424 
pi?4?5 
02426 
02427 
02430 
024 31 
02432 
02433 
02434 
02435 
02436 
02437 
02440 
02441 
02442 
02443 
02444 
02445 
02446 
02447 
02450 

02451 
02*52 
02453 
02454 

02455 

02456 
02457 

02460 
02461 
02462 
02463 
02464 
02465 



000027 
002426 
101 370 
001607 
600260 
000030 
802433 
101370 
001612 
600260 
000031 
002441 
100652 
140023 
101 401 
600260 
000032 
002447 
100652 
100350 
101401 
600260 
000033 
002466 

100361 
777776 
100451 
001715 
100706 
140023 
100322 
000050 
777772 
101401 
440050 
602462 
600260 



P0TS27 27 

P0TS30 

JMS TYPUN3 

C300 

JMp CHaIN 
P0TS30 30 

P0TS31 

JMS TYPLN3 

C335 

JMp CHAIN 
P0TS31 31 

P0TS32 

JMS 

D2M 

JMS 

JMP 

32 

P0TS33 

JMS 

JMS 

JMS 

JMP 

33 

P0TS34 
/PRINT 6 LINES OF ASR33 WORST CASE PATTERN. NO DELAY 



P0TS32 



P0TS33 



F8ALL 
OELAYM 

TYPE 
CHAIN 



F9ALL 
nLCNT 
TYPE 
CHAIN 



/PR[NT LINES OF »C\ 



/PRINT LINES -OF Jt AND LEFT ARROW, 



/PRINT LINE OF ALL CHARACTERS 



/PRINT LINE OF ALL CHARACTERS, 
/FIXED DELAY BETWEEN 
/CHARACTERS 



JMS 
-2 

JMS 

WCPTST 

JM S 

DZM 

SETLOC 

CTRA 

-6 

JMS 

IS? 

JMP 

JMP 

.EJECT 



CRLF 
TYPSTg 

FW334 
OELAYM 



TYPE 

CTRA 

CHAIN 



/CRLF 
/TWICE 
/PRINT TITLE 

/PATTERN TO BUFFER 
/0 TO OELAYM 
/-6 TO CTRA 



/TYPE LINE 
/ALL LINES TyPED? 
/NO. REPEAT 
/YES. CHAIN 



P »GE 



"<? 


15TTP2 


f*2«66 


000034 


02467 


002501 


fl?4 7Pi 


100706 


024 7J 


100322 


02*7? 


000050 


02473 


777772 


02474 


100350 


02475 


101401 


0?476 


440050 


02477 


60?474 


02500 


600260 


02581 


000035 


02502 


002514 


02503 


100742 


02504 


1400?3 


02505 


100322 


0?5B6 


000050 


02507 


777772 


02510 


101401 


02511 


440050 


02512 


60251.0 


0251? 


600260 


02514 


000036 


02515 


777777 


02516 


100742 


02517 


100322 


02520 


000050 


02521 


777772 


025?? 


100350 


32523 


101401 


325 24 


440050 


&25?5 


60?5?? 


tf?*2 6 


600?60 



P0TS34 34 

P0TS35 
/PRINT 6 LINES OF ASF33 WORST CASE PATTERN. FIXED ST*lL BETWEEN CHARS, 

JMS FW334 /PATTERN TO PUFFER 

SETLOC /-6 TO CTRa 

CTRA 

-6 

Jms DlCnt /generate delay count 



JMS TYPE 

IS? CTRA 

JMP .-3 

JMP CHAIN 
P0TS35 35 

P0TS36 
/PRjNT 6 LINES 

JMS 

02M 

SETLOC 

CTRA 

-6 

JMS 

IS? 

JM° 

JMP 

P0TS36 36 

777777 

/PRINT 6 l^NES 
JMS 

SETLOC 
CTRA 
-6 

JmS n L C NT 
JMS T Y PE 
ISH CTRA 
JMP .-x 
JMP CHAIN' 
.EJECT 



/TYPF LINE 
/ALL LINES TYPEO? 
/NO. REPEAT. 
/YES. CHAIN 



F ASR35 WORST CASE PATTERN. NO OElAY 



?"w?54 
OELAYM 



TYPE 

CTPA 

» *" /" 

CHAIN 



/PATTERN TO BufFER 
/0 TO DELAYM 
/-6 TO CTRA 



/type line, 
/all lines typed? 
/no. repeat 
/yes. chain 



OE ASR35 WORST CASE PATTERN. FIXEO STA L L BETWEEN CHARS. 
F«?54 /PATTERN TO PUFFER 

/-6 TO CTRA 



/ge n Eratf oe l ay count 

/TyPF LINE 
/ALL LINFS TYPED? 
/NO. REPFAT 
/YES. CHAIN 



33 


15TTP2 


02527 


100322 


>i?530 


000002 


02531 


003051 


02532 


100322 


02533 


000057 


02534 


777408 


H2535 


100322 


02536 


00*|0£0 


02537 


002541 


02540 


600233 


02541 


000000 


02542 


002552 


02543 


143401 


02544 


100533 


02545 


003401 


02546 


003402 


02547 


777401 


02550 


101324 


02551 


101112 


02552 


000001 


02553 


002564 


02554 


143401 


02555 


443401 


02556 


100533 


02557 


003401 


02560 


003402 


02561 


777401 


02562 


101324 


02563 


101112 


02564 


000002 


02565 


002577 


02566 


100322 


02567 


003401 


02570 


000002 


02571 


100533 


02572 


003401 


02573 


003402 


02574 


777401 


02575 


101324 


02576 


101112 



/SET INTERRUPT SERVICE 
/ADDRESS Tfl INTSVC 

/SET BLOCK COUNT TO 
/-256. 

/InITIA, ROUTInE address 
/TO KSTART 

/GET STARTED 



/Program i. punch function test 

PRGl SETLOC 

? 

INTSVC 

SETLOC 

BLKCNT 

-400 

SET L OC 

KSTART 

P1T0 

JMP SSSET 

/ROUTINE0 

/PUNCH AND READ CHECK BLOCK OF ALL 0*S, 

PlT0 

PlTl 

DHM BLOCKA /0 TO BLOCKA 

MOVE /FILL BUFFER 

BLOCKA 

BLOCKA +1 

-37 7 

jmS NTST /GO TO NORmAi TEST 

JMS PBLK /uSE THIS CALL. 

/ROUTINE 1, 

/PUNCH AND READ CHECK RLOCK OF CHANNEL 1, 
PlTl 1 

P1T2 

DHM PLOCKA 

I SZ BLOCKA /I TO BLOCKA 

MOVE /FILL RUFFCR 

BLOCKA 

BLOCKAn 

-377 

Jms ntst /go to normal test, 
jms pblk /use this call. 

/ROUTINE 2. 

/PUNCH AND READ CHECH BLOcH OF CHANNEL 2. 

P1T2 2 

P1T3 

SETLOC /2 TO BLOCKA 

BLOCKA 

? 

MOVE /FILL BUFFfR 

BLOCKA 

PLOCKA+1 

-377 

JMS NTST /GO TO NORMAL TEST. 

JMS PBLK /USE THIS CALL 

.EJECT 



"AGF 



02577 


000003 


02600 


002612 


02603 


1003?2 


02602 


003401 


02603 


000004 


02604 


100533 


02605 


003401 


02606 


003402 


02607 


777401 


02610 


101324 


02611 


101112 


02612 


000004 


02613 


002625 


02614 


100322 


02615 


00340-1 


02616 


00001 


02617 


100533 


02620 


003401 


02621 


003402 


02622 


777401 


02623 


101324 


02624 


10111 2 


02625 


000005 


02626 


002640 


02627 


100322 


02630 


003401 


02631 


000020 


02632 


1130533 


02633 


003401 


2 6 7 4 


3 4 2 


,1?N^S 


777401 


2 b 3 6 


1 1 3 ° 4 


02637 


101 1 1 2 



/4 TO BtOCKA 



/FILL BUFFER 



/ROUTINE 3. 

/PUNCH AND READ CHECK nLOCH OF CHANNEL 3, 

P1T3 3 

P1T4 

SETLOC 

BLOCKA 

4 

MOVE 
BLOCKA 
BLOCKA+1 
-377 

JMS NTST 
JMS PBLK 

/ROUTINE 4 

/PUNCH AND READ CHECK BLOCK OF CHANNEL 4 

P1T4 4 

PlT5 
SETLOC 
BLOCKA 
10 

HOVE 
BLOCKA 

PLOCKA+1 
-377 

JMS NTST 
JMS PBLK 

/ROUTINE 5. 

/PUNCH AND READ CHECK BLOCK OF CHANNEL 5. 



/GO To NORMAL TEST 
/USE THIS CALL 



/10 TO BLOCKA 



/GO TO NORMAL TEST 
/U S E "HIS CALL 



PIT5 



5 

P1T6 

SETLOC 

BLOCKA 

20 

MOVE 

BLOCKA 

RLOCKA+1 

-377 

J M S NTST 

JMS PBLK 

•EJECT 



/20 TO BLOCKA 



/FILL BUFFER 



/GO To NORm a l tE ST 
/USE THIS CALL 



' ' L £, \> 


/?<"«}. - 


■ ' ' 4" 


?L»<6^7 


. v ; - 4 ? 


• ?. ? ? 5 ? 


C264-1 


ce"54?i 


02644 


00«»(M0 


02645 


100533 


22646 


0034P1 


85647 


0034t>2 


02651" 


777401 


02651 


101324 


<»2652 


101112 


^2653 


000007 


02654 


002666 


02655 


100322 


82656 


003401 


*2657 


000100 


02660 


100533 


32661 


003401 


02662 


003402 


("2663 


777401 


CI2664 


101324 


02665 


101112 


02666 


P0HU1P 


(82667 


0027?1 


02670 


100322 


?2671 


0034P1 


02672 


(•30200 


02673 


100533 


.V674 


0034*1 


«V?>75 


F034P2 


02676 


777401 


iW^ 


1013?4 


^?7*P 


10111? 


?27Bl 


pei'Pll 


0?70? 


t»0?755 


."?7B3 


'K"1 


02704 


001M5 


0270S 


?0?4l?J 


^706 


77776? 


??707 


1 t x ■? * ? 


02710 


003401 


**?711 


0P341 7 


0?7l? 


777416 


i''7l3 


1 1 3 ? 4 


0?7j« 


1011V? 



/.,'iuT :• e - . 

Pi T 7 
SETLOC 
&L0CKA 
40 

MOVE 
BLOCKA 
PLOCKA+i 
-377 

JmS mtst 

JMS Pc L K 
/ROUTINE 7 

/PUNCH a*Q *E«0 C«E~K 
PlT7 7 

P1U0 

SETLOC 

BLOCKA 

100 

MOVE 

BLOCKA 

BLOCKA*i 

-377 

J*S NTST 

JMS PBLK 
/ROUTINE10. 
/PUNCH AMD REAr CMFCK 
P1T10 10 

PITH 

SETLOC 

PLOCKA 

?00 

MOVE 

BLOCKA 

PLOCKAM 

-377 

jms 

JMS 
/ROUTINE n 
/PUNCH AND REa; 
PlTll 11 

PlTl? 

MOVE 

SLIDl 

PLOCKA 

-16 

MOVE 

PLOCKA 

BLOCKA*!^ 

-362 

JMS NT>t 

JMS o=. * 

. F JECT 



<~ >»*-M_l 6 '"''■*> 



/40 TO BLOCKA 



/flLL BU rF ER 



/GO TO NORM*l TEST. 
/USE THIS CALL. 



QLCCK OF CHANNEL 7 



/100 TO BLOCKA. 



/FILL BUf^R 



/GO TO NORMAL TEST, 
/USE THIS CALL. 



SLOCK OF CHANNEL 8. 



/200 TO BLOCKA 



/fill buffer 



P3LK 



/GO TO NORMAL TEST 
/USE THIS CALL. 



fHf-,;h ..Lrcv of sliding and pattern. 



/FILL RUFFFR WITH 
'SLIOING 1 PATTERN. 



/GO TO NORMA L TEST 
/USE THIS CALL 
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15TTP2 
















/ROUTINE 12 












/PUNCH 


AND READ 


CHECK 3L0C* 


OF 


sliding pattern. 


*>2 7 15 


000012 


P1T12 


12 








02716 


002731 




P1T13 








22717 


100533 




MO?E 






/FILL BUFFER WITH . 


0272? 


001633 




SL't'DB 






/SLIOING PATTERN 


02721 


003401 




BLOCKA 








0272? 


777762 




-16 








02723 


100533 




MOVE 








02724 


003401 




BLOCKA 








02725 


003417 




BLOCKA+; 


16 






0?726 


777416 




-362 








02727 


101324 




Jms 


NTST 




/Go To NORMAL TEST 


02730 


101112 




JMS 


PBLK 




/USE THIS CALL 






/ROUTINE 13 












/PUNCH 


AND READ 


CHECK SLOCK 


OF 


ONES AND ZEROS. 


02731 


000013 


PlTi3 


13 








02732 


P02745 




P1T14 








02733 


750001 




CLAJCMA 








02734 


500564 




AND 


PTMSK 






02735 


043401 




DAC 


BLOCKA 




/377 TO BLOCKA 


02736 


143402 




D2M 


RLOCKA+1 




/0 TO 9L0CKA+1 


02737 


100533 




MOVE 






/FILL BUFFER WITH 


02740 


003401 




BLOCKA 






/ONES ANO ZEROES. 


02741 


0034513 




PLOCKA+; 


I 






02742 


777402 




-376 








02743 


101324 




JMS 


NTST 




/GO TO NORMAL TEST 


02744 


101112 




JMS 


PBLK 




/USE THIS CALL 






/ROUTINE 14. 












/PUNCH 


ano Read 


CHECK BLOCK 


OF 


ONES AND ZEROES. RaNQOM 






/ST A LLS 


> BETWEEN 


chaRactrers 


PUNCHED. 


02745 


000014 


P1T14 


14 








32746 


002761 




P1T15 








?747 


750001 




claicma 








02750 


500564 




and 


PT^SK 






02751 


043401 




DAC 


BLOCKA 




/377 TO BLOCKA 


0275? 


143402 




ozm 


OLOCKA+1 




/0 TO RLOCKA*! 


0? 7 53 


100533 




move 






/FILL BUFFER WITH 


P27 54 


003401 




PLOCKA 






/ONES AND ZEROES 


02755 


003403 




plocka*; 


I 






02756 


77740? 




-376 








02 7 57 


101324 




JMS 


NlTST 




/GO To NORmA l l I ST 


0?760 


1011 20 




JMS 
.EJECT 


PBLKR 




/USE THIS CALL. 



page ;<? 



13TTP2 



f. 2 7 *• 5 


00001 5 


0J76? 


00?766 


0?7&3 


102773 


?2764 


101324 


32765 


101 112 


82766 


0000J6 


02767 


777777 


82770 


102773 


32771 


101324 


0277? 


101120 


32773 


000000 


02774 


100322 


82775 


000044 


02776 


003401 


02777 


100322 


03000 


000050 


03001 


777400 


03002 


100557 


03003 


100565 


03004 


060044 


03005 


440044 


03006 


440050 


03007 


603003 


03010 


622773 



/ROUTINE IS 




/PUNCH 


ANO REaC 


fMfCK -LOCK 


P1T15 


15 
P1T16 






JMS 


f WB jN 




JMS 


NTST 




JMS 


PBLK 


/ROUTINE 16. 




/PUNCH 


AND READ 


C-HECK BLOCK 


/Random 


1 STALLS 


BETWEEN CHAR 


9\t\6 


16 
777777 






JHS 


EWBjN 




JMS 


NTST 




JMS 


PBLKR 


FWBIN 




SETLOC 

TEMPU 

8L0CKA 

SETLOC 

CTRA 

-400 






JmS 


!n!TPT 


TWBINA 


JMS 


GETPTT 




DAC» 


TEMPI! 




ISH 


TEMPU 




IS? 


CTRa 




JMP 


FfPlNA 




JMp» 


FwPIN 




.EJECT 





OF BINARY COUNT PATTERN. 



/GO Fjll WjTH B[NARY PATTERN 
/GO TO NORMAL TEST 
/USE THIS CALL 

OF BINARY COUNT PATTERN. 
ACTERS PUNCHED. 



/GO Fjlu WjTH BjNARY PATTERN 
/GO TO NORMAL TEST 
/USE THIS CALL. 

/BLOCKA AOORESS TO TEMPU 



/-256 TO CTRA 



/iNlTIA.IBE PATTERN. 

/GET BINARY CHARACTER 

/STORE PER TEMPU 

/*1 TO TEMPU 

/DONE? 

/NO. 

/yes. exit 



page ^e 


15TTP? 


1*3011 


100322 


03012 


000020 


03013 


003017 


03014 


100451 


03015 


001734 


03016 


600233 


03017 


000000 


03020 


003042 


03021 


100322 


03022 


000050 


03023 


776030 


03024 


703302 


03025 


100451 


03026 


001753 


03027 


700301 


03030 


603027 


03031 


700301 


03032 


603036 


03033 


440050 


0303« 


603031 


03035 


600260 


03036 


750040 


03037 


700301 


03040 


603037 


03041 


603037 



0304? 


000001 


03043 


003061 


03044 


703302 


03045 


1 00451 


03046 


001767 


3 !» 4 7 


700301 


03050 


603047 


03fj5l 


700312 


£".305? 


700406 


.'3053 


700401 


03054 


6030^3 


03055 


3400*? 


03056 


7402^0 


03057 


6030a? 


3 1» g p. 


6 2 f , a 



/PROGRAM 2. KEY 


BOARD TfST 


PRG2 


SETLOC 

KSTaRT 
P2T0 






JMS 


TYPSTg 




KM S Gl 






JMP 


srset 


/ROUTINE 




/CHECK 


THAT KSF 


COMMAND SKIPS W 


P2T0 




P2T1 

SETLOC 

CTRA 

-1750 

CAF 






JMS 


TyPSTG 




KMSG2 






KSF 






JMP 


.-1 




KSF 






JMP 


P2E0 




ISH 


CTRA 




JMP 


. -3 




JMP 


CHAIN 


P2E0 


HLT!cL* 
KSF 






JMP 


.-1 




JMP 


.-? 


/ROUTINE 1. 




/ECHO TEST, CH* 


R4CTER received 


/SHOULC 


) MATCH. 


RUROUT CHARACTER 


P 2 T t 


1 

P2T2 

CAF 






JMS 


TyPSTG 




KMSG3 




P2T1A 


KSF 






JMP 


. -1 




KR9 






TLS 






TSF 






JMP 


. - 1 




TAD 


MRPOUT 




S2A 






JMP 


P 2 T lA 




JMP 


CHAIN 




,E JECT 





/INITIAL ROUTINE ADDRESS 
/TO KSTaRT 

/print title 
/get started. 

ITH FLAG=i. 1800 T IM£S. 
/-1000 TO CTRA. 



/clear all Fl* g s. 
/print instruction 

/wait for flag 1. 

/;kip onf flag. 

/no skip. error. 

/done 1000 times? 

/no. repfat. 

/yes. chain 

/error. failfd to skip. 

/scope loop. skip :\ flag 1. 

/REPEAT 
/REPEAT 

IS TYPED. KEYED A*D PRINTED CHARACTER 
ENDS ROUTINE. 



/PRINT INSTRUCTION 

/READY 7 

/WAIT 

/READ CHARACTER. 

/PRINT IT 

/DONE TYPING? 

/NPO. WAI T . 

/RUBOUT? 

/NO, REPFAT 
/YES. CHAIN 



"AGE 39 



15TTP2 



? 3 o i 


000002 


F386? 


777777 


i3063 


703302 


P3264 


100451 


03265 


002042 


03*66 


100451 


03067 


001776 


03070 


700301 


03071 


603070 


03a72 


700312 


03073 


043106 


93074 


101423 


03075 


003106 


83076 


002064 


03077 


108451 


93180 


002062 


03181 


203106 


0318? 


340062 


03193 


740200 


03104 


603070 


e3i0s 


600260 


03106 


000000 



/ROUT If 


•■e 2. 




/OcTaL 


COU : '» 4.: 


N T TEST 


/KEYEO 


is =i=:\- 


F". RUBI 


P2T2 


2 

777777 

CAF 






J* s 


tt^stg 




KMSG4 






JHS 


TYPSTG 




KMSQ3A 




P2T2A 


KSF 






JMP 


■ "1 




KRB 






DAC 


P2T2W 




JMS 


ASCCN 




P2T2M 






OCTEOV 






JMS 


typstg 




KMSG5 






LAC 


P2T2W 




TAO 


MRPOUT 




SEA 






JMP 


P2T2A 




JMP 


CHAIN 


P2T2W 



•EJECT 





TEST. THE DcT A L EQUIV/iI.E^t OF 4 NV C HaRaC t E c 
T ENDS D 0UT;NE. 



/P R IN T instruction 



/READY? 
/NO. HAJT 

/yes. read keyboard 

/connect Character to 
/printable octal 

/print octal equivalent 



/RUBOUT? 
/NO. 

/YES. CHAIN 
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15TTP2 


03107 


100322 


03110 


000002 


B3111 


001051 


03112 


100322 


03113 


000057 


03114 


777552 


03115 


100 613 


03116 


100322 


03117 


000020 


03120 


083122 


03121 


600233 


0312? 


000000 


03123 


003127 


03124 


100631 


03125 


001516 


03126 


101354 


03127 


000001 


03130 


003134 


03131 


100631 


03132 


001521 


03133 


101354 


03134 


000002 


03135 


003141 


03136 


100631 


03137 


001524 


03140 


101354 


03141 


000003 


03142 


003146 


03143 


100631 


03144 


e0l527 


03145 


101354 


03146 


B0P0P4 


0314? 


003153 


03150 


100631 


03151 


001532 


0315? 


101354 


0335? 


P00005 


03154 


003160 


03155 


; 00631 


03156 


P01535 


03157 


101354 


03160 


000006 


03161 


003165 


03162 


100631 


0316? 


?. , 154I1 


03164 


«vM354 



/PROifiAM 3. COMBINED READER, PRINTER, PUNCH TEST 



PRG3 



P3T0 



P3Ti 



P3T2 



P3T3 



P3T4 



P3T5 



P3T6 



SETLOC 




2 




INTSVC 




SETLOC 




BLKCNT 




-226 




JMS 


STOF 


SEtLOC 




<■ KSTART 




P3T0 




JMP 


SRSET 







P3T1 




JMS 


FBF3 


A 




Jms 


C N TST 


P3T2 




.-JMS 


FBF3 


* 




Lms 


CNTST 


13 T 3 




V s 


FBF3 


-»* 


CN TST 


3 




P3T4 




JMS 


F8F3 


J 




JMS 


CNTST 


4 




P3T5 




JMS 


FBF3 


M If 




JM f" 


CNTST 


5 




P3T6 




JMS 


FBF3 


P 




JMS 


CNTST 


6 




P3T7 




JMS 


FBF3 


S 




JMS 


CNTST 


.EJECT 





/SET INTFRRUPT SERVICE TO 
/INTSVC 

/SET BLOCK COUNT 
/TO -150 

/SET UP PUFFER. 
/INITIAL ROUTINE 
/ADDRESS TO KSTaPT 

/GET STARTED. 
/DATA: ABC 

/DATa:DEF 

/DATa:GHI 

/Data: JKL 

/OATa:MNO 



/DATa:POR 



/DATA:STU 
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15TTP: 


■/■ Vj A <=, 


000007 


.'" ■* 1 6 6 


003172 


•M 1 6 7 


i 00631 


03170 


001543 


03171 


101354 


03172 


000010 


03173 


003177 


?3l74 


100631 


03175 


001546 


03176 


101354 


33177 


000011 


03200 


003204 


03201 


100631 


03202 


001551 


03203 


101354 


03204 


000012 


03205 


003211 


03206 


100631 


03207 


001554 


03210 ' 


101354 


03211 


000013 


03212 


003216 


03213 


100631 


03214 


001557 


03215 


101354 


03216 


000014 


03217 


003223 


03220 


100631 


03221 


001562 


03222 


101354 


(53223 


000015 


03224 


003230 


- 03225 


100631 


03226 


001565 


P3227 


101354 


03230 


000016 


03231 


003235 


03232 


100631 


03233 


001570 


03234 


101354 


k?3?35 


00001 7 


03236 


00324? 


03237 


100631 


03240 


001573 


03241 


101354 



?3 T 7 



P3T10 



P3TH 



P3Ti2 



P3T13 



P3T14 



P3T15 



P3T16 



P3T17 



- 3U0 

j« 

v 

JMS 

10 

^•3X11 

JMS 

Y 

JMS 

11 

P3T12 

JMS 

ONE 

JMS 

12 

P3T13 

JUS 

tour 

JMS 

13 

P3T14 

JMS 

SEVEN 

JMS 

14 

P3T15 

JMS 

C241 

JMS 

15 

P3T16 

JMS 

C244 

JMS 

16 

P3T17 

JMS 

C247 

JMS 

17 

P3T20 

JMS 

C252 

JMs 

.EJECT 



CNTST 

FBF 3 
CNTST 

FBF3 
CNTST 

FBF3 
CNTST 

FBF3 
CNTST 

FBE3 
CNTST 

FBF3 
CNTST 

F8F3 

CNTST 

FBf"3 
CNTST 



/Ci T 4 : Vwv 



/DATA: Y?0 



/0ATA:i23 



/DATa:456 



/DATA: 789 



/DATA: !"# 



/DATA :$%! 



/DATA: '() 



/DATA:**. 



PACF 



jCTTPj 



0324? 


0000?0 


i'3?4 3 


f.03247 


^3244 


' 100631 


03245 


001576 


03246 


101354 


03247 


000021 


03250 


003254 


032.51 


100631 


03252 


001601 


03253 


10^354 


03254 


000022 


03255 


003261 


03256 


100631 


03257 


001604 


3260 


101354 


03261 


000023 


03262 


003266 


03263 


100631 


03264 


001607 


03265 


101354 


03266 


000024 


03267 


003273 


03270 


100631 


03271 


001612 


P3272 


1B1354 


03273 


P000?5 


03271 


003277 


03275 


100652 


03276 


101354 


03277 


000026 


03300 


003303 


03301 


100706 


03302 


101354 


03303 


0000?7 


03304 


003307 


03305 


100724 


03306 


1013*4 


03307 


000030 


03310 


003313 


03311 


10074? 


03312 


101354 


>\3313 


000031 


03314 


("03317 


03315 


10076P 


03316 


10J354 



P3T20 

P3T21 

P3T22 

P3T23 

P3T24 

P3T25 
P3T26 
P3T 2 7 
P3 T 30 
P3T3I 



20 

P3T21 

JMS 

C255 

JMs 

21 

P3T22 

JMS 

C272 

JMS 

22 

P3T23 

JMS 

C275 

JMs 

23 

P3T24 

JMS 

C3SI0 

JMS 

24 

P3T25 

JMS 

C335 

JMS 

25 

P3T26 

JMS 

JMS 

26 

P3T27 

JMS 

JMS 

27 

P3T30 

JMS 

JMS 

3? 
P3T31 

JMS 

JMS 

31 
P3T32 

JMS 
JMS 
.EJECT 



F3P3 
CNTST 

fbf3 

CNTST 

FBF3 

CNTST 

FBF3 

r-NTST 

FBF3 
CNTST 



F8ALL 
TNTST 



FW334 
CNTST 



FW^3S 

r-; T ST 



F W 3 5 4 

CNTST 



r *3«;S 
CNTST 



/DATA:-. / 



/Data: : ;< 



/OATA:=>? 



/DaTa: ? c\ 



/DATA: ]t AND LEFT ARROW 



/OATa: ALL PRINTABLE ASCII 



/DATA! ASR33 PRINTER WORST 
/CASE PATTFRN. 



/Data: ASR33 printer worst case 

/PATTERN WITH INTERSPERSED BLANKS. 



/DATA: ASR35 PRINTER hCRST CASE 
/PATTERN. 



/DATa: ASR35 PRINTFR WORST CASE 
/PATTERN WITH INTfCSPERSTD BLANKS. 
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15TTP? 



03317 


00003? 


03320 


777777 


("3321 


750001 


03322 


50H564 


03323 


043403 


03324 


143404 


03325 


100533 


03326 


003403 


03327 


0034 05 


03330 


777672 


03331 


100533 


03332 


003403 


03333 


003515 


03334 


777670 


03335 


101354 


03336 


100613 


03337 


100670 


03340 


140023 


03341 


750004 


03342 


75H00 


03343 


100350 


03344 


101401 


03345 


603340 


3346 


2044(,3 


03347 


040002 


33350 


204404 


03351 


040057 


03352 


100533 


03353 


000021 


03354 


003401 


03355 


777776 


03356 


100533 


03357 


003401 


03360 


003403 


03361 


777402 


0336? 


204405 


03363 


04337? 


03364 


750004 


03365 


750100 


03366 


603371 


03367 


204406 


03370 


043372 


03371 


101340 


03372 


000000 



P3T32 



P J M s K 

RLOCKl 

BLOCKi+i 



JMS 
/PROGRAM 4. 
/IF ACSgsg, 
PRG4 



JMS 
JMS 
Oin 
LAS 
SPA 
JMS 
JMS 
JMP 

/PROGRAM 5. 

/0002?. IF 

PRG5 



32 
777777 

Ci_a :Cma 

AND 

DAC 

OHM 

MOVE 

PLOCKi 

BLOCKi+2 

-106 - 

MOVE 

BLOCK1 

8L0CK2 

-110 

CN-TST 
PRINT t INEs 
FULL SPEED. 
STpf 



/Data: -\E-s AvD 2 r RoES. 



OF 
IF 



FBTMP 
DELAYM 



CLA 



DLCNT 
TYPE 
PRG4+2 
PUNCH AND READ 
ACSe=0, FULL SPE 
( INTSVc 
2 

(-400 
BLKCNT 



PRG5A 



PRG5V 



LAC 

PAC 
1 a r 

OAC 

MOVE 

PTEMP 

BLOCKA 

-2 

MOVE 

BLOCKA 

P-LOCKA + 2 

-376 

LAC 

DAT 

LAS 

SMA 

JMP 

LAC 

0*C 

JMS 



.EJECT 



DATA IN LOC 08821 ANC 80022. 
ACS0 S1 STALL BETWEEN CHARACTERS, 

/SET UP BUFFER 

/FILL BUFFER MTfc DATA. 

/REAO ACS 
/STALL? 
/YES. 
/TYPE LJNE 

CHECK DAT* BLOCKS WITH OaTa IN LOC 00021 AND 
ED. IF ACS0S! STALL BETWEEN CHARACTERS 
/SET INTERRUPT SERVICE TO INTSVc 

/SET BLOCK COUNT TO -256 
/FILL BUFFER WITH DATA. 



(JMS PPLK 
PRG5V 



CLA 



PRG5V-1 
(JMS PHLKR 
PRG5V 
STST 



/preset f r full spEeo run. 

/REAO ACS. 

/STALL? 

/NO. 

/yes. set up stst subroutine 

/TO STALL. 

/GO TO SPECIAL SUBROUTINE 

/JMS PBLK, OR JMS PBLKR 
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1"5TTP? 












/PROGRAM 6. PUNCH A ND R EAD CHEC 






/IT 4CSi* = 0, FULL SPEED. IF ACS0 


03373 


204403 


PRG6 


LA C 


( INTSVc 


03374 


040002 




DAC 


2 


03375 


2 044 04 




LAC 


(-400 


03376 


040057 




DAC 


BLKCNT 


03377 


102773 




JMS 


FW6IM 


03400 


603362 


/ 

RLOCKA 


JMP 


PRG5A 


03401 


000215 


215 




03402 


000212 




212 




03403 


000000 


BLOCK1 







03513 






.LoC 


BLoCKl+110 


03513 


000215 


BLOCKS 


215 




03514 


000212 




212 




03515 


000000 


6L0CK2 







03625 






.LOC 


BLOCK2 + H0 


03625 


000215 


BLOCKC 


215 




03626 


000212 




212 




04001 






.LOC 


BLOCKA+400 


04001 


000000 


D8LK 







04401 


P00000 

04401 

04402 

04403 

04404 

04405 

04406 


000450 *L 
000440 »L 
001051 »L 
777400 «L 
101112 «L 
101120 «L 


.LOC 
.END 


DBLK+4A0 




Sl?E=04407 


NO ERROR LINES 



BLOCKS OF BlNA& y COUNT P A TTeRN. 

i Random stalls be t ween class punched. 
/set interrupt service to intsv c 

/ S E T BLOCK COuNt T° "2.56 

/FILL BUFFER WITH BINARY COUNT, 



/CR 
/LF 



/CR 
/LF 

/CR 

/LF 



PAGF 



-••5 



15TTP? 



A 


•' i "3 1 & 


AC 


00065 


ASCCN 


31 4?3 


ASCT 


01462 


A 33 WPS 


0147? 


A33WP-S 


31466. 


A35WPS 


01506 


A35WP4 


01502 


BlkCNT 


00057 


R L OCKA 


03401 


RLOCKB 


03513 


BLOCKC 


03625 


RLOCK1 


03403 


RLOCK2 


03515 


CHAIN 


00260 


CHCK 


00575 


CHRyST 


01704 


CLCF 


7000K4 


CLON 


700044 


CLSF 


700001 


CNTST 


01354 


cnv 


01446 


CR 


00060 


CRCTR 


00375 


CRLF 


00361 


CRTST 


01651 


CRTSTA 


02112 


CRTSTB 


02115 


CTRA 


00050 


CTRB 


00051 


CURTST 


00034 


C100 


00105 


C240 


00106 


C241 


01562 


C244 


01565 


C247 


01570 


C252 


01573 


C255 


01576 


C257 


00067 


C272 


01601 


C275 


01604 


C300 


01607 


C334 


00070 


C335 


0161? 


n 


01521 


OADDfi 


01316 


DAP 


01136 


DAR 


01203 


nBLK 


04001 


DCTR 


01317 


DELAY 


100333 


DELAYM 


00023 


DELAYS 


00026 


DLCNT 


00350 


OLCNTP 


01273 
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6 15TTP2 


OL^SP 


t-'l 2S4 


DUYMS 


00333 


OLYMSK 


00055 


EE" 


707702 


ERRCR 


00053 


ERRCTR 


00054 


FRROR 


01223 


FADOR 


00554 


FBALL 


00652 


FBF3 


00631 


FBTMp 


00670 


FETCH 


01421 


FLAG 


00102 


FORhD 


00277 


FOUR 


01554 


FWRIN 


02773 


FWBINA 


03003 


FW33S 


00724 


FW334 


00706 


FW35S 


00760 


FW354 


00742 


G 


01524 


GETPTT 


00565 


GETRPy 


00234 


GNRND 


01303 


INCRTN 


00256 


IN1TPT 


00557 


INTSVC 


01051 


J 


01527 


KM S G1 


01734 


KMSG2 


01753 


KMSG3 


01767 


KMSG3A 


01776 


KMSG4 


02042 


KMSG5 


02062 


KRA 


700322 


KRR 


700312 


KSF 


700301 


KSTART 


00020 


K0707 


01464 


Kl 


00071 


K6060 


01465 


K77 


00103 


K7700 


01463 


LDCOE 


01010 


LFM 


707704 


LF 


00061 


LFTST 


01677 


LFTSTA 


0224.= 


LINK 


00064 


LTRCTR 


01007 


M 


01532 


HCTR 


00556 


MILCTR 


00040 


MIL! 


00041 



PAr,£ 47 



15TTP2 



HOVE 


100533 


MOVE* 


00515 


"OWE 


00533 


*SP0uT 


(90062 


HSCTR 


00037 


*1 


00072 


Ml IB 


00076 


"111 


00077 


116 


09074 


M2 


80073 


M40 


00104 


M44 


00075 


NTST 


013*4 


NTSTA 


01332 


MXTST 


00035 


OCTEOV 


02064 


OME 


01551 


OUT 


01066 


P 


01535 


P>00" 


01140 


PBLK 


01112 


PBLKR 


01120 


PCF 


700202 


PCTR 


01137 


POCR 


01105 


PFLAG 


00056 


PLTLR 


00776 


PR G A OR 


00221 


PRCEND 


00275 


PRGU" 


00031 


PRGHSK 


00030 


PRGNUX 


00027 


PRGTAB 


00111 


PRG0 


02071 


PRGl 


02527 


PRG2 


03011 


PRGJ 


03107 


PRG4 


03336 


PRG5 


03346 


PRG5* 


03362 


°»G?v 


03372 


PRG6 


03373 


PRINT 


00524 


PSA 


700204 


PSP 


700244 


PSF 


700201 


PSTUP 


01074 


PSW 


00032 


PSYNC 


01320 


PTFH° 


00021 


PTEMPl 


00022 


PT«SK 


00564 


PTP 


00562 


PTl 


00563 


PUNCH 


00376 
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1 


P0TS0 


02076 


P0TS1 


02131 


P0TS10 


02306 


P0TS11 


02313 


P0TS12 


02320 


P0TS13 


02325 


P0TS14 


02332 


P0TS15 


02337 


P0TS16 


02344 


P0TS17 


02351 


P0TS2 


02163 


P0TS20 


02356 


P0TS21 


02363 


P0TS22 


02370 


P0TS23 


02375 


P0TS24 


02402 


P0TS25 


02407 


P0TS26 


02414 


P0TS27 


02421 


P0TS3 


02230 


P0TS30 


02426 


P0TS31 


02433 


P0TS32 


02441 


P0TS33 


02447 


P0TS34 


02466 


P0TS35 


02501 


P0TS36 


02514 


P0TS4 


02254 


P0TS5 


02267 


P0TS6 


02274 


P0TS7 


02301 


P1T0 


02541 


PlTl 


02552 


PH10 


02666 


PlTll 


02701 


P1T12 


02715 


P1T13 


02731 


P1T14 


02745 


P1T15 


02761 


P1T16 


02760 


P1T2 


025*4 


P1T3 


02577 


P1T4 


02612 


P1T5 


02625 


P1T6 


02646) 


P1T7 


02653 


P2E0 


03036 


P2T0 


0301? 


P2T1 


0?t»42 


P2T1A 


03047 


P2T2 


03061 


P2T2A 


03070 


P2T2W 


03106 


P3T0 


03122 


"Mi 


03127 



"?2 



CAGE " 


v 15TTP2 


P3"f i& 


?3172 




P3 T 11 


03177 




P3T12 


3?Pli 




P3T13 


33211 




P3T14 


03216 




P3T15 


03223 




P3T16 


83230 




P3TJ7 


03235 




P3T2 


93134 




P3T20 


03242 




P3T21 


03247 




P3T22 


03254 




P3T23 


032*1 




P3T24 


03266 




P3T25 


03273 




P3T26 


03277 




P3T27 


03303 




P3T3 


03141 




P3T30 


03307 




P3T31 


03313 




P3T32 


03317 




P3T4 


03146 




P3T5 


03153 




P3T6 


03160 




P3T7 


03165 




RADOR 


012B4 




RANCON 


00436 




RANOEX 


00437 




RANGF.N 


00411 




RANSAV 


00450 




RANTAD 


00426 




RANTBL 


00440 




RBCTR 


01205 




R8USV 


00063 




RCF 


700102 




RCTRA 


01271 




RCTRS 


01272 




RDRLK 


01162 




ROHLKR 


01171 




RORSRV 


01206 




ROSRV 


0121? 




RMTST 


01656 




rmtsta 


02143 




RRR 


700112 




RRDV 


01141 




RSA 


700104 




RSB 


700144 




RSCTR 


01026 




RSF 


700101 




RSSERV 


01027 




RSTUP 


01146 




RSYNC 


01011 




RTNNO 


00033 




RUQONE 


01240 




S 


01540 





r, »:.F 



]'!U7 



sasc 


5)1461 


se 


01220 


SETLOC 


100322 


SEVEN 


01557 


SHALT 


08313 


SKIPMA 


00107 


SK1PPA 


00110 


SLID0 


01633 


SLID1 


0.1615 


SPACE 


00066 


SPTST 


01670 


SPTSTA 


02175 


SPTSTB 


02207 


SRSET 


00233 


SR3MSK 


00052 


START 


00200 


STBF 


00613 


STCTR 


00322 


STST 


01340 


STSTA 


01347 


STSTP. 


01351 


STSTC 


01352 


SWITCH 


00526 


TAOOR 


00555 


TCF 


700402 


TCTR 


01422 


TEMP 


00042 


TEMPI) 


00044 


TE"Pl 


00043 


TEMQ 


00100 


TEMR 


00 tin 1 


TLS 


700406 


TSCl 


00456 


TSC2 


00467 


TSF 


700401 


TSTMSK 


00036 


TVP»T 


00500 


TYPE 


01401 


TYPEA 


01410 


TYPLN3 


01370 


TYPSP 


00504 


TYPSTG 


00451 


UTEWP 


00045 


UTFHPl 


00046 


UTF*P.-> 


0?>fl47 


V 


1 5 4 .* 


VCTR 


010M 


nASC 


01 460 


kCHK 


0061? 


WCPTSI 


01 71b 


Y 


015"6 


. fOT 


00A00 



PAGF «*1 



15TTP2 



• ECT 


<s^^^v 


KSTa* • 


i»00?0 


PTTMP 


*»z?\ 


ptfmp: 


30022 


DELAY* 


00023 


DELAYS 


0002b 


PRGNUM 


00027 


PRGHSK 


00030 


PRGLI* 


00031 


PSM 


00032 


RTNNO 


00033 


CURTST 


00034 


NXTST 


00035 


TSTMSK 


00036 


MSCTR 


00037 


MIUCTR 


00040 


MILl 


00041 


TEMP 


00042 


TEMPI 


00043 


TEMPU 


00044 


UTEMP 


00045 


UTEMPl 


00046 


UTEMP2 


0004 7 


CTRA 


00050 


CTRB 


00051 


SR3MSK 


00052 


ERRCR 


00053 


FRRCTR 


00054 


DLYMSK 


30055 


PFLAG 


00056 


BLKCNT 


00057 


CR 


00060 


LF 


00061 


MRBOuT 


00062 


RBUSY 


00063 


LINK 


00064 


AC 


00065 


SPACE 


00066 


C257 


00067 


C334 


00070 


Kl 


00071 


Ml 


00072 


M2 


00073 


M16 


00074 


M44 


00075 


Ml 10 


00076 


Mill 


00077 


TEMQ 


00100 


TEMR 


001P1 


FLAG 


00102 


K77 


00103 


M40 


00104 


C100 


00105 


C240 


00106 


SKIPM* 


00107 



i : .TTH? 



S«IPPA 

PRCT»9 

START 

PRGAOB 

SRSET 

GETRD* 
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